vb 标准表达式类型不匹配

来源:百度知道 编辑:UC知道 时间:2024/06/29 21:24:54
Private Sub Command1_Click()
Dim SQL As String
If Not IsDate(Combo1.Text) Then
MsgBox "请输入正确的开始日期!" & vbCrLf & "(正确格式:YYYY-MM-DD)", 64, "提示"
Combo1.SetFocus
Exit Sub
End If
If Not IsDate(Combo2.Text) Then
MsgBox "请输入正确的结束日期!" & vbCrLf & "(正确格式:YYYY-MM-DD)", 64, "提示"
Combo2.SetFocus
Exit Sub
End If
SQL = "select * from 影碟作废表 where 报废日期>= '" & CDate(Combo1.Text) & "' and 报废日期<= '" & CDate(Combo2.Text) & "'"
Adodc1.RecordSource = SQL
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub

如何解决上述问题中的类型不匹配?
在 Adodc1.Refresh 这一行有错!

哪一行?手头没有vb,没法测试。

学会调试程序,执行到哪一行出错了,看看这一行的相关变量的值,通常就能发现错误原因了。

具体你这段代码,看看SQL变量的值,另外查看一下“影碟作废表”里面的“报废日期”字段的类型是否是字符串类型。