以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码失效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65003)
--  作者：yangwenghd
--  发布时间：2015/3/7 0:30:00
--  代码失效
能帮忙看看这个代码吗？为什么点击其他按钮后 下面按钮就失效了呢 
Dim Filter As String
With e.Form.Controls("TextBox13")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "绑定号 = \'" & .Value & "\'"   \'此处内容自行修改
    End If
End With
If Filter > "" Then
    Tables("企业档案窗口_Table1").Filter = Filter
End If  \'显示订单清单的列表
\'Forms("企业档案窗口").Controls("TabControl1").SelectedIndex = 4  \'点击后立刻显示TabControl的页面
--  作者：Bin
--  发布时间：2015/3/7 8:37:00
--  
上例子.