Information générale
Catégorie:
COM/DCOM et OLE Automation
>The following code works perfectly to refresh the data & preview my report, in Vbasic...
>
>Dim CrystalApplication As CRPEAuto.Application
>Dim CrystalReport As CRPEAuto.Report
>Dim DbName As CRPEAuto.Database
>Dim DbTables As CRPEAuto.DatabaseTables
>Dim DbTable As CRPEAuto.DatabaseTable
>
>Private Sub Form_Load()
>Set CrystalApplication = CreateObject("Crystal.CRPE.Application")
>Set CrystalReport = CrystalApplication.OpenReport("C:\Program Files\Seagate Software\Crystal Reports\A.rpt")
>
>Private Sub CmdPrintReport_Click()
>Call CrystalReport.DiscardSavedData
>Call CrystalReport.Database.Verify
>CrystalReport.Preview
>End Sub
>
>!!!THE EQUIVALENT FOX CODE listed below DOES NOT!!! WHY!??!
>
>LCrwApp=Createobject('Crystal.CRPE.Application')
>LCrwRep=LCrwApp.OpenReport("C:\Program Files\Seagate Software\Crystal Reports\A.rpt")
>LCrwRep.DiscardSavedData
>LcrwRep.Database.verify
>LcrwRep.Preview
>
>ARE WHY WE GOING TO ADMIT TO ANY SUPERIORITY IN VB?!!!
If there is no output, there must be an error generated by CR. Check that out. Do you have to verify every time?
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement