Display variable value in Crystal Report Text Box

[rpk_20061975]

In my application I have certain calculated values stored in variables. I am using Visual Basic 6 and Crystal Reports 8.5 and my Report has certain Text Boxes where I want to display the calculated values. I don't want to use the Data Fields. I want to do like this:

Dim C as ...CrystalReport1
Dim var1, var2 As String

Set C = New CrystalReport1

C.txtName.Text = var1
C.txtNumber.Text = var2

But the Crystal Report displays an error at lines "C.txtName", saying that it is a Read-Only field.

[Pasvorto]

Why not use parameters? such as;

Set the fields as parameters on your report . Then in your code..

Report.ParameterFields.Item(1).AddCurrentValue var1
Report.ParameterFields.Item(2).AddCurrentValue var2

I am using CR9.5, so the syntax may vary slightly.

[rpk_20061975]

I tried this, and this command style is available in 8.5 also. But as I call the report from VB (runtime), Crystal Report displays a dialog box to enter the parameter value. But I want the variable value to be automatically transferred to the parameters and the report should start printing.

[Pasvorto]

It shouldn't ask you for the value if you run it from within your VB app. If you supply the values when you run the report, it works fine (for me). Example:

Set Report = crxApplication.OpenReport("Z:\DAD\ShipvsProd.rpt", 1)
For Each crxDatabaseTable In Report.Database.Tables
crxDatabaseTable.ConnectionProperties("user id") = "sa"
crxDatabaseTable.ConnectionProperties("Password") = myPasswordTechniSQL
Next crxDatabaseTable
Report.SelectPrinter glbPrinterDriver, glbPrinterName, glbPrinterPort
Report.PaperOrientation = crDefaultPaperOrientation
Report.ParameterFields.Item(1).AddCurrentValue glbDate
Report.ParameterFields.Item(2).AddCurrentValue glbDate1
If glbPrinterDestination = 0 Then
glbReportForm = "frmProduction"
CRViewer.Show vbModal
Else
Report.PrintOut False
End If

[naruponk]

Guy,

If i have created 1 Crystal report, how can i use that report
using App.Path.

I mean i want to use that like this REPORT.SOURCE
(or something i dont know ) = App.Path & "\TEST.RPT"


Thanks

[RobDog888]

Option Explicit
'Add reference to - 
'Crystal Data Object
'Crystal Reports x.x Library
'Crystal Reports x.x ActiveX Designer Runtime Library
Private oReport As CRAXDRT.Report
Private crxApp As CRAXDRT.Application
 
Private Sub Command1_Click()
 
    Set crxApp = New CRAXDRT.Application
    Set oReport = New CRAXDRT.Report
 
    Set moReport = crxApp.OpenReport(App.Path & "\TEST.rpt", 1)
    '...
    '...
    '...
 
End Sub

[naruponk]

Thanks a lot man