以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  页面集合中副本表的操作  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120541)
--  作者：蓝蚂蚁
--  发布时间：2018/6/19 10:29:00
--  页面集合中副本表的操作
在页面集合控件中的page1页面里绑定A表，是以副本来绑定的，窗口1中按钮1的代码如下：
If Forms("窗口1").Controls("TabControl1").SelectedIndex = 1 Then
    Dim Filter As String
    With e.Form.Controls("TextBox1")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "编号 like \'%" & .Value & "%\'"
        End If
    End With
    Tables("窗口1_Table1").Filter = Filter    
End If
按照上面的代码，点击按钮1，没有反应，第一次用页面集合控件不太懂，看来网上的帖子，没有发现类似的，所以麻烦老师帮解答一下  谢谢
--  作者：有点甜
--  发布时间：2018/6/19 10:40:00
--  

直接写

 

    Dim Filter As String
    With e.Form.Controls("TextBox1")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "编号 like \'%" & .Value & "%\'"
        End If
    End With
    Tables("窗口1_Table1").Filter = Filter