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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在组合框中编写了几个选项，点击某一个后，能够筛选符合这个条件的数据，请教代码语句，谢谢。

共有1528人关注过本帖树形打印复制链接主题：在组合框中编写了几个选项，点击某一个后，能够筛选符合这个条件的数据，请教代码语句，谢谢。

lrh9537

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：369 积分：3088 威望：0 精华：0 注册：2012/11/16 12:19:00

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

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/11 16:15:00 [只看该作者]

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

lrh9537

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：369 积分：3088 威望：0 精华：0 注册：2012/11/16 12:19:00

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：369 积分：3088 威望：0 精华：0 注册：2012/11/16 12:19:00

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

下一主题 >> << 上一主题

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