VB+水晶报表的问题
我的存储过程中有一个参数@date1,我把它做为我的报表数据源,现在是我在VB中怎样获得这个报表的这相参数字段?
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Dim parameterfield As CRAXDDRT.ParameterFieldDefinition
'Report.ParameterFields.GetItemByName("@date1").ClearCurrentValueAndRange
'Report.ParameterFields.GetItemByName("@date1").AddCurrentValue (Val(Text1.Text))
Report.ParameterFields(1).ClearCurrentValueAndRange
Report.ParameterFields(1).AddCurrentValue (Val(Text1.Text))
Report.DiscardSavedData
Form1.Show
ElseIf Text1.Text = "" Then
MsgBox "天数不能为空", vbOKOnly, "提示"
Else
MsgBox "请输入正确的天数", vbOKOnly, "提示"
Text1.SetFocus
End If
End Sub
这是我的程序过程,但是文本中的数好像没有传给参数,参数任是在报表中设的离散数.要怎么处理?知道的请指教,谢谢