以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于根据开始结束日期筛选的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107618)

--  作者:tis0046
--  发布时间:2017/10/5 10:05:00
--  关于根据开始结束日期筛选的问题
想让筛选出来的内容在副本表里体现出来,但是只有主表可以筛选结果出来,副本没有体现

Dim Filter As String
Dim tbl As Table = e.Form.Controls("Table1").Table
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("表A").Filter =Filter
End If


图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2017/10/5 10:14:00
--  
If Filter > "" Then
   Tables("窗口1_Table1").Filter =Filter
End If


--  作者:tis0046
--  发布时间:2017/10/6 9:54:00
--  
感谢,完美解决