主题：关于多字段查询数据

精确查询

Dim str As String = "1,2,3,4,5"

Tables("表a").filter = "编号 in ('" & str.replace(",", "','") & "')"

模糊查询

Dim str As String = "1,2,3,4,5"
Dim filter As String = "1=2"
For Each s As String In str.split(",")
    filter &= " or 编号 like '%" & s & "%'"
Next
msgbox(filter)
Tables("表a").filter = filter

Dim str As String = "138xxxxxxxx"

Tables("表A").filter = "iif(第一列 is null, '', 第一列) Like '%" & str & "%' or iif(第二列 is null, '', 第二列) Like '%" & str & "%' or iif(第三列 is null, '', 第三列) Like '%" & str & "%' " 

代码有问题，要改改

Dim str As String = "23"

Tables("表A").filter = "iif(第一列 is null, '', 第一列) Like '%" & str & "%' or iif(第二列 is null, '', 第二列) Like '%" & str & "%' or iif(第三列 is null, '', 第三列) Like '%" & str & "%' "