以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将筛选结果显示在窗口表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191492)

--  作者:denghui69986
--  发布时间:2024/4/19 9:09:00
--  如何将筛选结果显示在窗口表
筛选结果如何显示在窗口表,试了多次一直没显示,老师帮忙看看最后面红色代码那里不对.谢谢
Dim Filter As String
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
If Filter > "" Then
    Tables("月生产报表").Filter = Filter
End If


Tables("主页窗_Table1").DataSource = Tables \'将统计结果绑定到Table

--  作者:有点蓝
--  发布时间:2024/4/19 9:16:00
--  
把窗口表设置为副本:http://www.foxtable.com/webhelp/topics/1906.htm

If Filter > "" Then
    Tables("主页窗_Table1").Filter = Filter
End If