Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Passing Values To Crystal Report
Message
From
09/10/2003 00:32:03
 
 
To
08/10/2003 10:31:21
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00836160
Message ID:
00836637
Views:
14
John ur suggestion was helpful to me and i got my app working in seconds. Thank you.
Sanjay.

>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
Sanjay Dhiraj Patel

MCSE, MCDBA

Net2Biz (Thailand)
Previous
Reply
Map
View

Click here to load this message in the networking platform