以文本方式查看主题 - 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 |