以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求大神看一下，筛选的命令对不对  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107581)
--  作者：tis0046
--  发布时间：2017/10/1 12:40: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


想设计一个筛选， 从开始日期到结束日期筛选，输入以上Click事件代码后，设计的筛选没有任何反映
--  作者：lindong
--  发布时间：2017/10/1 15:35: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

 
--  作者：tis0046
--  发布时间：2017/10/1 16:16:00
--  
太棒了，完美解决
--  作者：tis0046
--  发布时间：2017/10/1 16:29:00
--  
还想再问一下，如果我在窗口里设计一个table(表)，想让筛查的数据都反映这个表上，命令应该怎么写？table(表)已经绑定表A及设定为副本
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

这样写可以吗？
--  作者：lindong
--  发布时间：2017/10/1 20:05:00
--  
Tables("表A").Filter =Filter 改为 Tables("窗口名_table1").Filter =Filter