[RESOLVED]Second call to CR fail

[sacramento]

Hi to all:

I have this code for a report in VB6:

Set Report = New CRAXDDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\Ficha_Individual.rpt")

If (Rpt.HasSavedData) Then Rpt.DiscardSavedData

'set the section object to the Page Header section of the report.
Set oSection = Rpt.Sections("PH")

For i = 1 To oSection.ReportObjects.Count 
  If oSection.ReportObjects(i).Kind = CRAXDDRT.crOleObject Then ' if it is a CrOleObject then
      Set pic1 = oSection.ReportObjects(i) 
  End If
 Next i
 
Rpt.ParameterFields.GetItemByName("anilha").AddCurrentValue (FrmFicha_Aves_Mortas.Text1(1))

setviewersize

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport

When I call the report everything work well...When I make a second call a got this error in this line:

Error:"Object doens't support this action"

'set the section object to the Page Header section of the report.
Set oSection = Rpt.Sections("PH")

I need to refresh the report or do something?

Thanks

[rasinc]

I would test to see if the current section is already PH or trying the .reset command before you set the section.

[sacramento]

You mean this?

Rpt.Sections.Reset

but .reset command don't exist in this method

[rasinc]

Sorry, I use the ocx more. I am just starting to use the rdc. Try this:

Report = Nothing
Set Report = New CRAXDDRT.Application

Or

If oSection <> Rpt.Sections("PH") then
     Set oSection = Rpt.Sections("PH")
end if

Hope this helps

[sacramento]

Hi:

No in fact the error remain...with the first code the correct syntax is:

Set Rpt = Nothing

but nothing happens...

the second code generate a error...

[rasinc]

From the document scr8-ocxtordc.pdf:

RDC:
To Reset the report, set the Report object to “Nothing”, then open the report again and set the new properties. See
the OCX property ReportFileName for the RDC methods for opening reports.
‘Set the Report object to Nothing

Report = Nothing

[sacramento]

Hi:

The problem is resolved...
I had put this in the end of the code:

Set oSection = Nothing

Thanks for your help