Passing Parameters to CR via VB

[ter79]

I am trying to send parameters to CR from VB.

cr.ReportFileName = App.Path & "\credittally.rpt"
i = 0
cr.ParameterFields(i) = "b;Date(" & Format(sdate, "yyyy,mm,dd&quot & "True"
i = i + 1
cr.ParameterFields(i) = "e;Date(" & Format(EDate, "yyyy,mm,dd&quot & "True"
cr.Action = 1

However, I keep getting the parameter prompt box when I run the code for the report.

Any ideas on what I am doing wrong or any suggestions?

 

[balves]

- Make sure that "b" and "e" are the names of your parameters in the Crystal report and they are defined as Date.

- Then I used to do this in VB:

Dim strDate as string

strDate = "Date(" & Year(txtDateFieldinVB.text) & "," & Month(txtDateFieldinVB.text) & "," & Day(txtDateFieldinVB.text) & &quot"
CrystalReport1.ParameterFields(0) = "p1;" & strDate & ";true"
CrystalReport1.Action = 1