this is my code:
Private Sub Command1_Click()
Dim crxReport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application
Set crxApplication = CreateObject("CrystalRuntime.Application"
Set crxReport = crxApplication.OpenReport("H:\vb\CRVB\crystal.rpt"
crxReport.ParameterFields.Item(1).AddCurrentValue Text1.Text
CRViewer1.ReportSource = crxReport
CRViewer1.ViewReport
End Sub
however, only the first time i entered the parameter can work. when i change the parameter value, error message"memory full" will shown.
thanks a lot !
Private Sub Command1_Click()
Dim crxReport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application
Set crxApplication = CreateObject("CrystalRuntime.Application"
Set crxReport = crxApplication.OpenReport("H:\vb\CRVB\crystal.rpt"
crxReport.ParameterFields.Item(1).AddCurrentValue Text1.Text
CRViewer1.ReportSource = crxReport
CRViewer1.ViewReport
End Sub
however, only the first time i entered the parameter can work. when i change the parameter value, error message"memory full" will shown.
thanks a lot !