感谢大家，能帮我看看
按钮代码
Dim Filter As String
With e.Form.Controls("TextBox9")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "基本信息_在职企业号 = '" & .Value & "'" '此处内容自行修改
End If
End With
If Filter > "" Then
Tables("企业档案窗口_Table2").Filter = Filter
End If
能不能将"基本信息_在职企业号“列的表隐藏的筛选到：企业档案窗口_Table2
比如点击按钮 就把TextBox9等于”基本信息_在职企业号“的筛选到：企业档案窗口_Table2
只是目前有个问题就是：在“表a的基本信息_在职企业号”中和TextBox9已经被隐藏了
希望可以改一下代码吧隐藏的行筛选到”企业档案窗口_Table2”
感谢 感谢
加好友 
发短信
Post By：2014/11/29 10:23:00 [只看该作者]
