Any help would be appreciated with what I'm doing wrong to get the following error in the related code below:
ERROR ================================
Exception Details: System.ArgumentException: Invalid object type.
Source Error:
Line 61: .CurrentValues.Add(discreteVal)
Line 62: paramFields.Add(parmSettleNo)
Line 63: crvSettled.ParameterFieldInfo.Add(paramFields)
Line 64: End With
Source File: c:\inetpub\ Line: 63
CODE ================================
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objCRpt As New CRSettled()
Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
Dim parmDriver As New CrystalDecisions.Shared.ParameterField()
Dim parmSettleNo As New CrystalDecisions.Shared.ParameterField()
Dim parmPswd As New CrystalDecisions.Shared.ParameterField()
Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
With parmDriver
.ParameterFieldName = "DriverParm"
discreteVal.Value = "12345"
.CurrentValues.Add(discreteVal)
paramFields.Add(parmDriver)
crvSettled.ParameterFieldInfo = paramFields
End With
With parmSettleNo
.ParameterFieldName = "SettleParm"
discreteVal.Value = "987"
.CurrentValues.Add(discreteVal)
paramFields.Add(parmSettleNo)
crvSettled.ParameterFieldInfo.Add(paramFields)
End With
DataBind()
End Sub
ERROR ================================
Exception Details: System.ArgumentException: Invalid object type.
Source Error:
Line 61: .CurrentValues.Add(discreteVal)
Line 62: paramFields.Add(parmSettleNo)
Line 63: crvSettled.ParameterFieldInfo.Add(paramFields)
Line 64: End With
Source File: c:\inetpub\ Line: 63
CODE ================================
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objCRpt As New CRSettled()
Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
Dim parmDriver As New CrystalDecisions.Shared.ParameterField()
Dim parmSettleNo As New CrystalDecisions.Shared.ParameterField()
Dim parmPswd As New CrystalDecisions.Shared.ParameterField()
Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
With parmDriver
.ParameterFieldName = "DriverParm"
discreteVal.Value = "12345"
.CurrentValues.Add(discreteVal)
paramFields.Add(parmDriver)
crvSettled.ParameterFieldInfo = paramFields
End With
With parmSettleNo
.ParameterFieldName = "SettleParm"
discreteVal.Value = "987"
.CurrentValues.Add(discreteVal)
paramFields.Add(parmSettleNo)
crvSettled.ParameterFieldInfo.Add(paramFields)
End With
DataBind()
End Sub