| George Hardy 2006-03-23, 7:08 pm |
| Hello Crystal Wizards:
Im sure i am doing this with one line of code missing, but I am trying to
show a report with certain product numbers ( variable array mKeys() ) passed
in for a quick report....
Dim ParamFieldDef As
CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition
Dim ParamValues As CrystalDecisions.Shared.ParameterValues
Dim ParamDiscreteValue As CrystalDecisions.Shared.ParameterDiscreteValue
Dim rptTT As New TransferTicket
ParamFieldDef = rptTT.DataDefinition.ParameterFields.Item("@ProdNum")
ParamValues = New CrystalDecisions.Shared.ParameterValues
ParamDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
Dim i As Integer
For i = 0 To UBound(mKeys) -1
ParamDiscreteValue.Value = mKeys(i)
ParamValues.AddValue(ParamDiscreteValue.Value)
Next
ParamFieldDef.ApplyCurrentValues(ParamValues)
DBConnectionForReports(rptTT, Me) 'this sets the login info
Me.rptViewer.ReportSource = rptTT
by the time the report shows, it does not prompt me for the parameters, but
is a blank report and doesn't seem to apply the parameter list.
any suggestions?
thanks in advance!!!!!!
george hardy
|