"memory Full" 1

[rogerluo]

this is my code:

Private Sub Command1_Click()
Dim crxReport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application

Set crxApplication = CreateObject("CrystalRuntime.Application&quot
Set crxReport = crxApplication.OpenReport("H:\vb\CRVB\crystal.rpt&quot
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 !

 

[Darrick]

Private Sub Command1_Click()
Dim crxReport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application

Set crxApplication = CreateObject("CrystalRuntime.Application&quot
Set crxReport = crxApplication.OpenReport("H:\vb\CRVB\crystal.rpt&quot
crxReport.ParameterFields.Item(1).AddCurrentValue Text1.Text
CRViewer1.ReportSource = crxReport
CRViewer1.ViewReport
End Sub

You need to Set the crxApplication = Nothing, and the crxReport to nothing when your done with them (Just before the End Sub). Otherwise VB retains it in the memory causing you to get the "Memory Full" message. You should set all of your objects to nothing when you are done with them.

Good Luck,

Darrick
darrick3@yahoo.com

 

[rogerluo]

Hi Darrick,

Like Below?

Private Sub Command1_Click()
Dim crxReport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application

Set crxApplication = CreateObject("CrystalRuntime.Application&quot
Set crxReport = crxApplication.OpenReport("H:\vb\CRVB\crystal.rpt&quot
crxReport.ParameterFields.Item(1).AddCurrentValue Text1.Text
CRViewer1.ReportSource = crxReport
CRViewer1.ViewReport

Set crxApplication = Nothing
Set crxReport = Nothing
End Sub

However, still got the same message"Memory full".

thanks a lot!

danni

 

[Darrick]

Are you using any other Set statements in your code that you are not releasing the memory?

 

[Guest_imported]

I have an application that has several reports in it. They all work fine except one -- for which I get the "memory full" message. The only difference between this report and the others is that this one has a subreport in it. I have ensured that I've set all objects to 'nothing'.

Also all of my reports are passed a record set and use the TTX files.

Any ideas? Anyone?