cjaymcmeans
Well-known member
- Joined
- Jan 12, 2005
- Messages
- 85
- Programming Experience
- 3-5
hi...
im try to pass multiple parameters to a particular report...
problem is after passing all the parameters the parameter container somehow only has the last parameter that i passed..
ex. 2 parameters(A and B)
after passing A and B...
the container comes up with 2 parameter values but it contains only the B parameter...
hope you guys can help...
tnx...
If StrRep = "SystemSelect" Then
Dim prmFields As New ParameterFields
Dim prmField As New ParameterField
Dim prmValue As New ParameterValues
Dim dcrValue As New ParameterDiscreteValue
' str2 = Application.StartupPath() & "\..\report\"
RptCompDoc.Load("c:\itrEQUEST\report\rptsystem-select.rpt")
' 'rptVComp.ParameterFieldInfo = prmFields
prmField.ParameterFieldName = "@PrmUser"
dcrValue.Value = Trim(ModCompany.GUId.ToString)
prmField.CurrentValues.Add(dcrValue)
prmFields.Add(prmField)
prmField.ParameterFieldName = "@PrmSystem"
dcrValue.Value = Trim(StrRepType)
prmField.CurrentValues.Add(dcrValue)
prmFields.Add(prmField)
rptVComp.ParameterFieldInfo = prmfields
rptVComp.ReportSource = RptCompDoc
rptVComp.Zoom(100)
rptVComp.ShowRefreshButton = False
rptVComp.Show()
End If
im try to pass multiple parameters to a particular report...
problem is after passing all the parameters the parameter container somehow only has the last parameter that i passed..
ex. 2 parameters(A and B)
after passing A and B...
the container comes up with 2 parameter values but it contains only the B parameter...
hope you guys can help...
tnx...
If StrRep = "SystemSelect" Then
Dim prmFields As New ParameterFields
Dim prmField As New ParameterField
Dim prmValue As New ParameterValues
Dim dcrValue As New ParameterDiscreteValue
' str2 = Application.StartupPath() & "\..\report\"
RptCompDoc.Load("c:\itrEQUEST\report\rptsystem-select.rpt")
' 'rptVComp.ParameterFieldInfo = prmFields
prmField.ParameterFieldName = "@PrmUser"
dcrValue.Value = Trim(ModCompany.GUId.ToString)
prmField.CurrentValues.Add(dcrValue)
prmFields.Add(prmField)
prmField.ParameterFieldName = "@PrmSystem"
dcrValue.Value = Trim(StrRepType)
prmField.CurrentValues.Add(dcrValue)
prmFields.Add(prmField)
rptVComp.ParameterFieldInfo = prmfields
rptVComp.ReportSource = RptCompDoc
rptVComp.Zoom(100)
rptVComp.ShowRefreshButton = False
rptVComp.Show()
End If