'输入参数
' 声明将参数传递给查看器控件所需的变量。
Dim paramFields As New ParameterFields()
Dim paramField As New ParameterField()
Dim discreteVal As New ParameterDiscreteValue()
' 设置参数字段的名称,它必须和报表中的参数相符。
paramField = New ParameterField()
discreteVal = New ParameterDiscreteValue()
paramField.ParameterFieldName = 水晶报表定义的参数名
discreteVal.Value = 变量
paramField.CurrentValues.Add(discreteVal)
' 将该参数添加到参数字段集合。
paramFields.Add(paramField)
cryb.ParameterFieldInfo = paramFields