主题：关于筛选查找

Dim Filter As String
Dim str As String = e.Form.Controls("TextBox1").text
Filter = "文件名称 like '%" & str & "%' or 项目名称 like  '%" & str & "%' or 附件 like '%" & str & "%' or 文件类型 like '%" & str & "%'"

Tables("工程部技术文件").Filter = Filter