我的程序段如下:Private Sub Command9_Click()
If Combo1.Text = "" Then
MsgBox "请选择查询部门!"
Exit Sub
End IfIf Combo1.Text = "办公室" Then
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
DataEnvironment1.rsCommand1.Close
End If
DataEnvironment1.Commands("Command1").Parameters(0) = CStr(DTPicker1.Value)
DataReport1.Show
DataReport1.Sections(2).Controls("Label4").Caption = "统计时间:" & CStr(DTPicker1.Value)
ElseIf Combo1.Text = "经营部" Then
If DataEnvironment1.rsCommand2.State <> adStateClosed Then
DataEnvironment1.rsCommand2.Close
End If
DataEnvironment1.Commands("Command2").Parameters(0) = CStr(DTPicker1.Value)
DataReport1.Show
DataReport1.Sections(2).Controls("Label4").Caption = "统计时间:" & CStr(DTPicker1.Value)
End If
End Sub当我combo1.text值为“办公室”时,报表显示正常
但当combo1.text值为“经营部”时,就报错:参数param1没有默认值。
请问问题出在哪里呢?
If Combo1.Text = "" Then
MsgBox "请选择查询部门!"
Exit Sub
End IfIf Combo1.Text = "办公室" Then
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
DataEnvironment1.rsCommand1.Close
End If
DataEnvironment1.Commands("Command1").Parameters(0) = CStr(DTPicker1.Value)
DataReport1.Show
DataReport1.Sections(2).Controls("Label4").Caption = "统计时间:" & CStr(DTPicker1.Value)
ElseIf Combo1.Text = "经营部" Then
If DataEnvironment1.rsCommand2.State <> adStateClosed Then
DataEnvironment1.rsCommand2.Close
End If
DataEnvironment1.Commands("Command2").Parameters(0) = CStr(DTPicker1.Value)
DataReport1.Show
DataReport1.Sections(2).Controls("Label4").Caption = "统计时间:" & CStr(DTPicker1.Value)
End If
End Sub当我combo1.text值为“办公室”时,报表显示正常
但当combo1.text值为“经营部”时,就报错:参数param1没有默认值。
请问问题出在哪里呢?
CStr(DTPicker1.Value)有值吗