Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Passing Values To Crystal Report
Message
De
08/10/2003 10:31:21
 
 
À
08/10/2003 08:52:29
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00836160
Message ID:
00836222
Vues:
12
This message has been marked as the solution to the initial question of the thread.
I use the crystal activex control and this is what we do:

Public oCrystal
oCrystal = CREATEOBJECT( 'Crystal.CrystalReport' )

*-- Set Crystal's Default Screen Behaviour...
oCrystal.ProgressDialog = .T.
oCrystal.WindowAllowDrillDown = .T.
oCrystal.WindowControlBox = .F.
oCrystal.WindowMaxButton = .F.
oCrystal.WindowMinButton = .F.
oCrystal.WindowShowCancelBtn = .T.
oCrystal.WindowShowCloseBtn = .T.
oCrystal.WindowShowExportBtn = .T.
oCrystal.WindowShowGroupTree = .T.
oCrystal.WindowShowNavigationCtls = .T.
oCrystal.WindowShowPrintBtn = .T.
oCrystal.WindowShowPrintSetupBtn = .T.
oCrystal.WindowShowProgressCtls = .T.
oCrystal.WindowShowZoomCtl = .T.
oCrystal.WindowShowSearchBtn = .T.
oCrystal.WindowState = 2
oCrystal.Destination = 0 && Screen

*-- Tell crystal the report being used...
oCrystal.ReportFileName = "MyReport.rpt"

*-- Set the Report's Parameters...
oCrystal.ReportTitle = "My Report"
oCrystal.ParameterFields( 0) = [cCompanyName;] + (oApp.cCompName) + [;TRUE]
oCrystal.ParameterFields( 1) = [cStycat1;] + (m.cStyleCat1) + [;TRUE]
oCrystal.ParameterFields( 2) = [cStycat2;] + (m.cStyleCat2) + [;TRUE]

HTH
My Regards
John Hussey
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform