help on parameter passing

[cjaymcmeans]

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

 

[cjaymcmeans]

problem solved... tnx to ritesh...