参数字段运行时自定义

　　[Visual Basic]
　　' 声明将参数传递给
　　'查看器控件所需的变量。
　　Dim paramFields As New ParameterFields()
　　Dim paramField As New ParameterField()
　　Dim discreteVal As New ParameterDiscreteValue()
　　Dim rangeVal As New ParameterRangeValue()
　　
　　' 第一个参数是具有多个值的离散参数。
　　
　　' 设置参数字段的名称，它必须
　　'和报表中的参数相符。
　　paramField.ParameterFieldName = "客户姓名"

　　' 设置第一个离散值并将其传递给该参数
　　discreteVal.Value = "AIC Childrens"
　　paramField.CurrentValues.Add(discreteVal)
　　
　　' 设置第二个离散值并将其传递给该参数。
　　' discreteVal 变量被设置为新值，这样，以前的设置
　　'就不会被覆盖。
　　discreteVal = New ParameterDiscreteValue()
　　discreteVal.Value = "Aruba Sport"
　　paramField.CurrentValues.Add(discreteVal)
　　
　　' 将该参数添加到参数字段集合。
　　paramFields.Add(paramField)
　　
　　　　' 第二个参数为区域值。paramField 变量
　　'被设置为新值，这样，以前的设置就不会被覆盖。
　　paramField = New ParameterField()
　　
　　' 设置参数字段的名称，它必须
　　'和报表中的参数相符。
　　paramField.ParameterFieldName = "客户 ID"
　　
　　' 设置区域的开始值和结束值并将区域传递给该参数。
　　rangeVal.StartValue = 42
　　rangeVal.EndValue = 72
　　paramField.CurrentValues.Add(rangeVal)
　　
　　' 将第二个参数添加到参数字段集合。
　　paramFields.Add(paramField)
　　
　　' 将参数字段集合放入查看器控件。
　　crystalReportViewer1.ParameterFieldInfo = paramFields