Dim paramFields As CrystalDecisions.Shared.ParameterFields = CrystalReportViewer1.ParameterFieldInfo
Dim paramField As CrystalDecisions.Shared.ParameterField = paramFields("参数名称")
Dim discreteValue As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
discreteValue.Value = "参数值"
paramField.CurrentValues.Add(discreteValue)
paramFields.Add(paramField)
Dim paramField As CrystalDecisions.Shared.ParameterField = paramFields("参数名称")
Dim discreteValue As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
discreteValue.Value = "参数值"
paramField.CurrentValues.Add(discreteValue)
paramFields.Add(paramField)