Passing parameters to subreport

[bardlas]

I'm trying to pass parameters to both main report and subreport(Crystal 8.5), and print reports from the code. The test code below shows what is being done.

sReportPathRPT = "D:\MainReport.rpt"

Set oCRApp = New CRAXDRT.Application
Set oMainReport = oCRApp.OpenReport(sReportPathRPT, crOpenReportByTempCopy)

oMainReport.DiscardSavedData
oSubreport.DiscardSavedData

oMainReport.ParameterFields.GetItemByName("BankName&quot.AddCurrentValue "MainRepParam1"

oMainReport.ParameterFields.GetItemByName("UserID&quot.AddCurrentValue "MainRepParam2"

Set oSubreport = oMainReport.OpenSubreport("SubReport&quot

oCRReport.ParameterFields.GetItemByName("Pm-?UserID", "SubReport&quot.AddCurrentValue "SubRepParam"

'or -> oSubreport.ParameterFields.GetItemByName("Pm-?UserID&quot.AddCurrentValue "SubRepParam"

oSubreport.EnableParameterPrompting = False
oMainReport.EnableParameterPrompting = False
oMainReport.DisplayProgressDialog = False
oSubreport.DisplayProgressDialog = False
oMainReport.PrintOut
oSubreport.PrintOut

"Pm-?UserID" is a parameter field on the subreport linked to the parameter field on the main report.

When I print subreport I get the prompt screen "Enter parameters Values" with "Discrete value" set to "SubRepParam" in my case. I don't get this screen when I print the Main report.

Does anyone know how to supress the "Enter parameters Values" prompt screen from appearing ? Any advice would be appreciated!!!

Roman

 

[DavidTN]

I don't know how close of a fit this will be for you, but the following code works for me:

Dim Report As New CrystalReport1
Dim crxSubreport1 As CRAXDRT.SubreportObject

Report.Database.Tables(1).SetLogOnInfo sParm1, , sParm2, sParm3
Report.ParameterFields(1).AddCurrentValue (sParm4) 'pass account id
'Login to each subreport
Set crxSubreport1 = Report.Subreport1
crxSubreport1.OpenSubreport.Database.Tables(1).SetLogOnInfo sParm1, , sParm2, sParm3

Hope this helps!

DavidTN

 

[bardlas]

Thanks for you response. Unfortunately my reports are based
on ttx files.
Regards,
Roman