在组合框中编写了几个选项，点击某一个后，能够筛选符合这个条件的数据，请教代码语句，谢谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在组合框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编辑过]

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编辑过]

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编辑过]

主题：在组合框中编写了几个选项，点击某一个后，能够筛选符合这个条件的数据，请教代码语句，谢谢。