scoubidoou
Programmer
Hye
With my code i found to edit graphic and the graphic change when i passed parameters
But when i passed parameter the graphic don't change and my report don't read the new value if you can help me thks
See the code for more information
Dim objectFactory, theReportName, viewer
theReportName = "C:\Program Files\Crystal Decisions\Report Application Server 9\Reports\Test.rpt"
'CREATE OBJECT
Set objectFactory = Server.CreateObject("CrystalReports.ObjectFactory.2"
Set viewer = objectFactory.CreateObject"CrystalReports.CrystalReportInteractiveViewer"
With viewer
.Name = "MonRapportARGEL"
.IsDisplayToolbar = False
.IsDisplayPage = True
.IsOwnPage = False
.IsOwnForm = False
.EnableParameterPrompt = True
.HasGotoPageButton = False
.HasExportButton = False
.HasToggleGroupTreeButton = False
.HasCrystalLogo = False
.HasPageNavigationButtons = False
.HasPrintButton = False
.HasRefreshButton = False
.HasSearchButton = False
.HasViewList = False
.HasZoomFactorList = False
.HasHelpButton = False
.HasHeaderArea = False
.PageToTreeRatio = 100
.ZoomFactor = 100
.ReportSource = theReportName
.ProcessHttpRequest Request, Response,Session
'CREATE PARAMETERS
Set paramdef = viewer.ParameterFields(0)
paramdef.CurrentDiscreteValues.Add("08"
End With
tHKS