能帮忙看看这个代码吗？为什么点击其他按钮后 下面按钮就失效了呢
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的页面
加好友 
发短信
Post By：2015/3/7 0:30:00 [显示全部帖子]
