Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.SharedDim objReportDocument As ReportDocument
Dim strParaKey As String
Dim objParaValue As Object
Dim PValues As New ParameterValues()
Dim ParameterValue As New ParameterDiscreteValue()......
ParameterValue.Value = objParaValuePValues.Add(ParameterValue)
......
objReportDocument.DataDefinition.ParameterFields.Item(strParaKey).ApplyCurrentValues(PValues)