HELP!!!

[rogerluo]

I tried to open a external cystal report within Visual Basic 6.0.

the report would be opened in the first time. however, when you want to open the report by enter different parameter, the error message "Memory Full" is received. my code as follow,
'General Declarations
Dim crxReport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application

private sub ***()
Set crxApplication = CreateObject("CrystalRuntime.Application&quot
Set crxReport = crxApplication.OpenReport("h:\vb\CRVB\2.rpt&quot

crxReport.ParameterFields.Item(1).AddCurrentValue ACCOUNT

crxReport.ParameterFields.Item(2).AddCurrentValue StatementFreq

crxReport.ParameterFields.Item(3).AddCurrentValue fromdate

crxReport.ParameterFields.Item(4).AddCurrentValue todate

crxReport.MorePrintEngineErrorMessages = False
CRViewer1.ReportSource = crxReport


CRViewer1.ViewReport
crxReport.PrintOut
Set crxReport = Nothing
Set crxApplication = Nothing

end sub

anyone know how to sort it out?

thanks lot.

 

[balves]

You don't want this line for starters. Dim .. As New has already created the app object:

Set crxApplication = CreateObject("CrystalRuntime.Application&quot