如何在Crystal报表中动态传递参数？

Question

我需要知道如何在水晶报告中动态传递参数

 Dim paramField31 As New CrystalDecisions.Shared.ParameterField()
 Dim discreteVal1 As New CrystalDecisions.Shared.ParameterDiscreteValue()
 discreteVal1 = New ParameterDiscreteValue()
 paramField31.ParameterFieldName = "sample"
 discreteVal1.Value = (ds.Tables(0).Rows(2).Item(0))
 paramField31.CurrentValues.Add(discreteVal1)
 paramFields3.Add(paramField31)