以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教关于日期输入框的使用问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33707)
--  作者：苍风霁月
--  发布时间：2013/5/23 8:35:00
--  请教关于日期输入框的使用问题

请问下我用日期输入框输入了查询的起止日期，用下面语句提示错误，如何解决？   

    Dim qsj As Date = e.Form.Controls("起时间").value

    Dim zsj As Date = e.Form.Controls("止时间").value

    DataTables("工作日志").LoadFilter ="日期 >= #" & qsj & "# And 日期 <= #" & zsj & "#"
    DataTables("工作日志").Load()
--  作者：Bin
--  发布时间：2013/5/23 8:37:00
--  
用 MESSAGEBOX.SHOW 弹出一下你拼接的表达式  看看拼接成什么了.
--  作者：qq121454970
--  发布时间：2013/5/23 9:08:00
--  
Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        Filter = "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("订单").Filter = Filter
End If
--  作者：苍风霁月
--  发布时间：2013/5/23 9:33:00
--  

谢谢，按楼上的办法，解决了！