关于组合查询问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在模糊查询设置的是如下：

1. 希望文本框1输入一个条件之后可以同时在多个栏位A,B,C,D中查询；

2.希望文本框2 和文本框3输入不同的内容都在固定栏位E中查询；

最终查询结果如下：

A or B or C or D And E(文本框2）

A or B or C or D And E(文本框3）

请问这个代码应该如何处理？

参考：http://www.foxtable.com/webhelp/scr/1058.htm

With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = '" & .Value & "' or 列2 = '" & .Value & "' or 列3 = '" & .Value & "'"
    End If
End With

若是模糊查询应该如何处理？

Dim Filter As String

With e.Form.Controls("Textdengji")

If .Value IsNot Nothing Then

Dim txt As String = "'%" & .Value & "%'"

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & ("食品大类一级 Like " & txt & " Or 食品亚类二级 Like " & txt & " Or 食品品种三级 Like " & txt & " Or 食品细类四级 Like " & txt)

End If

End With

With e.Form.Controls("Textteam")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "convert(varchar,报价分组) like '%" & .Value & "%'"

End If

End With

With e.Form.Controls("TextSTD")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "convert(varchar,标准) like '%" & .Value & "%'"

End If

End With

With e.Form.Controls("TextItem")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "convert(varchar,检测项目) like '%" & .Value & "%'"

End If

End With

If Filter > "" Then

DataTables("B_TtemNo").LoadFilter = Filter

DataTables("B_TtemNo").Load

End If

请问这个代码应该如何改？

Filter = Filter & "(食品大类一级 Like " & txt & " Or 食品亚类二级 Like " & txt & " Or 食品品种三级 Like " & txt & " Or 食品细类四级 Like " & txt & ")"

主题：关于组合查询问题