以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  以下代码怎么都没反应  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109870)
--  作者：有点蓝
--  发布时间：2017/11/21 23:29:00
--  

With e.Form.Controls("开始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "入厂日期>= \'" & .Value & "\'"
    End If
End With

With e.Form.Controls("结束日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "入厂日期<= \'" & .Value & "\'"
    End If
End With
--  作者：有点甜
--  发布时间：2017/11/22 12:22:00
--  

最后一句改成

 

e.Form.controls("人员信息表").Table.Filter = Filter