以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在组合框中编写了几个选项，点击某一个后，能够筛选符合这个条件的数据，请教代码语句，谢谢。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190885)
--  作者：lrh9537
--  发布时间：2024/3/11 16:06:00
--  在组合框中编写了几个选项，点击某一个后，能够筛选符合这个条件的数据，请教代码语句，谢谢。



在组合框ComboBox1中编写了几个选项，点击某一个后，能够筛选符合这个条件的数据，请教代码语句，谢谢。
以下列代码为例修改：
列表项目设定为：逻辑一|逻辑二|逻辑三|逻辑四|逻辑五
Dim Filter As String
If e.Form.Controls("******").Checked Then
    Filter = "健康状况 Is null"
ElseIf e.Form.Controls(""******).Checked Then
    Filter = "是否参加大病保险 Is null"
ElseIf e.Form.Controls(""******).Checked Then
    Filter = "参加城乡居民基本养老保险 Is null"
ElseIf e.Form.Controls(""******).Checked Then
    Filter = "城乡基本医疗保险 Is null" And "城镇职工基本医疗保险 Is null"
ElseIf e.Form.Controls(""******").Checked Then
    Filter = "城乡基本医疗保险 Is null" And "城镇职工基本医疗保险 Is null"
End If

If Filter > "" Then
        Tables("户信息总表").Filter = Filter
End If
[此贴子已经被作者于2024/3/11 16:07:26编辑过]
--  作者：有点蓝
--  发布时间：2024/3/11 16:15:00
--  
参考：http://www.foxtable.com/webhelp/topics/1058.htm
--  作者：lrh9537
--  发布时间：2024/3/11 16:25:00
--  

Dim Filter As String
With e.Form.Controls("ComboBox1")
     If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter =Filter "健康状况 Is null"
    End If
End With
列表项目设定为：逻辑一|逻辑二|逻辑三|逻辑四|逻辑五，然后怎么改？

点击“逻辑一”，开始筛选筛选符合这个条件的数据；
点击“逻辑二”，开始筛选筛选符合这个条件的数据；
点击“逻辑三”，开始筛选筛选符合这个条件的数据；
点击“逻辑四”，开始筛选筛选符合这个条件的数据；
点击“逻辑五”，开始筛选筛选符合这个条件的数据；
[此贴子已经被作者于2024/3/11 16:30:00编辑过]
--  作者：有点蓝
--  发布时间：2024/3/11 16:48:00
--  
帮助里产品，客户不都是使用的列表项目吗，照搬呀，改为自己的列名和控件名称就行了

With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "要筛选的列 = \'" & .Value & "\'"
    End If
End With
--  作者：lrh9537
--  发布时间：2024/3/11 17:25:00
--  
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "健康状况 = \'" & .Value & "\'"
        Filter = "健康状况 Is null"
    End If
End With

With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & "  And "
        End If
        Filter = Filter & "与户主关系 = \'" & .Value & "\'"
        Filter = "与户主关系 Is null"
    End If
End With 
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "民族 = \'" & .Value & "\'"
        Filter = "民族 Is null"
    End If
End With

如我想实现选择其中任意一个条件就可以去筛选，怎么改？

选择“健康状况为空”，去筛选“健康状况"为空的数据，
选择“与户主关系为空”，去筛选“与户主关系"为空的数据，
选择“民族为空”，去筛选“民族"为空的数据，
[此贴子已经被作者于2024/3/12 9:56:01编辑过]