以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125202)
--  作者：admin22327
--  发布时间：2018/9/22 7:37:00
--  查询窗口
我做了一个查询窗口，点击查询没有反应，帮我看看是什么原因，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:添雨账务.table
--  作者：有点蓝
--  发布时间：2018/9/22 8:59:00
--  
Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "司机 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = 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

Tables("查询_Table1").Filter = Filter