Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Frustrated by Crystal Reports Automation Server
Message
De
27/09/1999 11:00:00
Ken Zinssar
Newkirk Products Inc
Albany, New York, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Frustrated by Crystal Reports Automation Server
Divers
Thread ID:
00269361
Message ID:
00269361
Vues:
53
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?!!!
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform