主题：代码失效

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的页面