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

怎样根据一个查询条件来精确查询和模糊查询多字段中是否符合查询条件的数据呢？

精确查询

 

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 & "%' " 

or 第三列 is null执行的是什么加上他什么也查不出来

代码有问题，要改改

 

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 & "%' "