主题：组合查询

Dim Filter As String=""
Dim khmcmhcz As WinForm.CheckBox = e.Form.Controls("kuhumohuchaxunCheckBox")
With e.Form.Controls("kehuxingmingTextBox2")
    If .Value IsNot Nothing Then
        If khmcmhcz.Checked Then
            Filter &= "客户姓名 like '%" & .Value  & "%'"
        Else
            Filter &= "客户姓名= '" & .Value & "'"
        End If
    End If
End With
Dim sfzhmhcz As WinForm.CheckBox = e.Form.Controls("shenfenzhengmohuchaxunCheckBox")
With e.Form.Controls("shenfenzhenghaoTextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If sfzhmhcz.Checked Then
            Filter &= "身份证号 Like '%" & .Value  & "%'"
        Else
            Filter &= "身份证号= '" & .Value & "'"
        End If
    End If
End With
With e.Form.Controls("kehuxingbieComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter &= "性别= '" & .Value & "'"
    End If
End With
Dim sjmhcz As WinForm.CheckBox = e.Form.Controls("shoujimohuchaxunCheckBox")
With e.Form.Controls("shoujihaoTextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If sjmhcz.Checked Then
            Filter &="客户主手机号 like '%" & .Value   & "%' Or 第二手机号 like '%" & .Value   & "%' Or  第三手机号 Like '%" & .Value   & "%'"
        Else
            Filter &= "客户主手机号 = '" & .Value & "' Or 第二手机号= '" & .Value & "' Or 第三手机号 = '" & .Value & "'"
        End If
    End If
End With
Dim dzmhcz As WinForm.CheckBox = e.Form.Controls("dizhimohuchaxunCheckBox")
With e.Form.Controls("kehudizhiTextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If dzmhcz.Checked Then
            Filter &= "客户地址 like '%" & .Value  & "%'"
        Else
            Filter &= "客户地址= '" & .Value & "'"
        End If
    End If
End With
With e.Form.Controls("kehuleibieComboBox2")
    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

 

这段代码哪错了运行后（我是手机号是模糊查询、再加上性别）性别怎么不筛选呀

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:客户入库程序.table

此主题相关图片如下：4566666.png

With e.Form.Controls("shoujihaoTextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If sjmhcz.Checked Then
            Filter &="(iif(客户主手机号 is null, 1=2, 客户主手机号 Like '%" & .Value   & "%') Or iif(第二手机号 is null, 1=2, 第二手机号 like '%" & .Value   & "%') Or iif(第三手机号 is null, 1=2,第三手机号 Like '%" & .Value   & "%'))"
        Else
            Filter &="(iif(客户主手机号 is null, 1=2, 客户主手机号 ='" & .Value   & "') Or iif(第二手机号 is null, 1=2, 第二手机号 = '" & .Value   & "') Or iif(第三手机号 is null, 1=2,第三手机号 = '" & .Value   & "'))"
        End If
    End If
End With

这个是组合查询

就这几句代码吗？

看懂了

把其中的一段修改即可。