[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我做了一个查询窗口，老是出错，请高手帮忙解决指导一下，急    我的代码：Dim khmc As String = e.Form.Controls("客户名称").Value
Dim jzmc As String = e.Form.Controls("机种名称").Value
Dim tm As String = e.Form.Controls("条码").Value
Dim ksrq,jsrq As Date
If e.Form.Controls("开始日期").Value = Nothing
    ksrq = #01/05/1901#
Else
    ksrq = e.Form.Controls("开始日期").Value
End If
If e.Form.Controls("结束日期").Value = Nothing
    jsrq = #12/25/2099#
Else
    jsrq = e.Form.Controls("结束日期").Value
End If
ksrq = ksrq.AddDays(-1)
jsrq = jsrq.AddDays(1)
Dim Filter As String
If jzmc <> ""
    Filter = "客户名称 = '" & khmc & "'"
End If
If jzmc <> ""
    If Filter = ""
        Filter = "机种名称 = '" & jzmc & "'"
    Else
        Filter = Filter & " and 机种名称 = '" & jzmc & "'"
    End If
End If
If tm <> ""
    If Filter = ""
        Filter = "条码 = '" & tm & "'"
    Else
        Filter = Filter & " and 条码 = '" & tm & "'"
    End If
End If
If Filter = ""
    Filter = "日期 > #" & ksrq & "# and 日期 < #" & jsrq & "#"
Else
    Filter = Filter & " and 日期 > #" & ksrq & "# and 日期 < #" & jsrq & "#"
End If
Tables("客户信息表").Filter = Filter

[此贴子已经被作者于2013-7-20 11:42:35编辑过]

主题：[求助]