主题：怎么设置多表过滤查询功能

dim B表条件 as string = "第3列='" & a & "'"

tables("B表").filter = B表条件

左上角的表没有效果，因为代码里没有对这个表进行处理，自己参考其它表的用法处理

Dim s As String = e.Form.Controls("输入框").Text '获取输入框的内容放入变量

If s > "" Then '输入框有输入内容则设置条件

    Tables("HdDbProductEntity").filter = "Info='" & s & "'" '合并查询条件：http://www.foxtable.com/webhelp/topics/1284.htm

    Dim filter As String = "1=2 " '定义模糊查询的条件变量

    For Each c As Char In s '遍历每个字符，合成条件

        filter = filter & " or Series like '%" & c & "%'"

    Next 

    Tables("HdDbProfileEntity").filter = filter

    Tables("HdDbCombinationEntity").filter = filter

Else '否则去掉条件

    Tables("HdDbProductEntity").filter = ""

    Tables("HdDbProfileEntity").filter = ""

    Tables("HdDbCombinationEntity").filter = ""

End If