主题：请教代码

以下代码在查询日期列时报错，nr控件输入2010-5-3，请问如何处理

dim bm as string
dim xm as string=e.form.controls("textbox2").text
dim gx as string=e.form.controls("combobox2").text
dim nr as string=e.form.controls("combobox3").text
dim gxz as string
if e.form.controls("table1").visible=true then
    bm="导航_table1"
elseif e.form.controls("table2").visible=true then
    bm="导航_table2"
end if
select case gx
    case "等于"
        gxz="="
    case "大于"
        gxz=">"
    case "小于"
        gxz="<"
    case "大于等于"
        gxz=">="
    case "大于等于"
        gxz="<="
    case "不等于"
        gxz="<>"
    case "包含"
        gxz="Like"
    case else
        gxz=nothing
end select
if datatables(bm).datacols(xm).Isdate then
    With DataTables(bm)
        .LoadFilter ="[" & xm & "] " & gxz & "'" & cdate(nr) & "'"
        .Load()
    End With
end if

 

此主题相关图片如下：qq截图未命名.jpg

是这个原因，改为#可以加载数据，和SQL用'的方法混了