主题：关于多字段查询

参考代码

"电话1 = '123' or 电话2 = '123' or 电话3 = '123'"

"电话1 like '%123%' or 电话2 like '%123%' or 电话3 like '%123%'"

msgbox(filter) 看看，弹出什么？

截图，或者做例子说明，如何不正确。

你8楼的代码没有问题。执行代码 msgbox(filter) 弹出什么？

Dim Filter As String = ""
Dim shmcmhcz As WinForm.CheckBox = e.Form.Controls("shanghumohuchazhaoCheckBox")
With e.Form.Controls("shanghumingchengTextBox")
    If .Value IsNot Nothing Then
        'If shmcmhcz.Checked Then
            Filter &= "商户名称 like '%" & .Value  & "%'"
       ' Else
        '    Filter &= "商户名称= '" & .Value & "'"
       ' End If
    End If
End With
Dim frxmmhcz As WinForm.CheckBox = e.Form.Controls("farenmohuchazhaoCheckBox")
With e.Form.Controls("farenxingmingTextBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
      '  If frxmmhcz.Checked Then
            Filter &= "法人姓名 like '%" & .Value  & "%'"
       ' Else
        '    Filter &= "法人姓名= '" & .Value & "'"
       ' End If

    End If
End With

Dim jjtmmhcz As WinForm.CheckBox = e.Form.Controls("jijumohuchazhaoCheckBox")
With e.Form.Controls("jijutiaomaTextBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If jjtmmhcz.Checked Then
            Filter &= "机具条码 like '%" & .Value  & "%'"
        Else
            Filter &= "机具条码= '" & .Value & "'"
        End If
    End If
End With
Dim llkmhcz As WinForm.CheckBox = e.Form.Controls("liuliangkamohuchazhaoCheckBox")
With e.Form.Controls("liuliangkahaoTextBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If llkmhcz.Checked Then
            Filter &= "流量卡号 like '%" & .Value  & "%'"
        Else
            Filter &= "流量卡号= '" & .Value & "'"
        End If
    End If
End With
With e.Form.Controls("tongdaomingchengComboBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter &= "通道名称= '" & .Value & "'"
    End If
End With
Dim shbhmhcz As WinForm.CheckBox = e.Form.Controls("shanghubhmohuchazhaoCheckBox")
With e.Form.Controls("shanghubianhaoTextBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If shbhmhcz.Checked Then
            Filter &= "商户编号 like '%" & .Value  & "%'"
        Else
            Filter &= "商户编号= '" & .Value & "'"
        End If
    End If
End With
Dim wdbhmhcz As WinForm.CheckBox = e.Form.Controls("wangdianbhmohuchazhaoCheckBox")
With e.Form.Controls("wangdianbianhaoTextBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If wdbhmhcz.Checked Then
            Filter &= "网点编号 like '%" & .Value  & "%'"
        Else
            Filter &= "网点编号= '" & .Value & "'"
        End If
    End If
End With
Dim wdmcmhcz As WinForm.CheckBox = e.Form.Controls("wangdianmcmohuchazhaoCheckBox")
With e.Form.Controls("wangdianmingchengTextBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If wdmcmhcz.Checked Then
            Filter &= "网点名称 like '%" & .Value  & "%'"
        Else
            Filter &= "网点名称= '" & .Value & "'"
        End If
    End If
End With
Dim wddzmhcz As WinForm.CheckBox = e.Form.Controls("wangdiandzmohuchazhaoCheckBox")
With e.Form.Controls("wangdiandizhiTextBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If wddzmhcz.Checked Then
            Filter &= "网点地址 like '%" & .Value  & "%'"
        Else
            Filter &= "网点地址= '" & .Value & "'"
        End If
    End If
End With
With e.Form.Controls("shanghuzhuangtaiComboBox")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter &= "商户状态= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("商户资料表").Filter = Filter
End If
msgbox(filter)
'Forms("商户资料查询窗体").Close

要改成这样 Filter &= "商户状态= '" & .Value & "'" 或者 Filter = Filter & "商户状态= '" & .Value & "'"

也是要用的，照抄14楼代码。