CheckedComboBox复选组合框的代码怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → CheckedComboBox复选组合框的代码怎么写？

共有2620人关注过本帖树形打印复制链接主题：CheckedComboBox复选组合框的代码怎么写？

kolen

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

加好友

发短信

等级：三尾狐帖子：677 积分：6228 威望：0 精华：0 注册：2012/1/20 17:53:00

CheckedComboBox复选组合框的代码怎么写？ 发帖心情

Post By：2016/8/23 15:06:00 [只看该作者]

CheckedComboBox复选组合框的代码怎么写？

我的需求：

1、窗口a加载时，将复选组合框CheckedComboBox1中的所有的列表项目a,b,c,d,e(来自于"销货表“的”业务员”列)都选中，赋值给这个复选组合框。

2、窗口a中的销货表的加载条件是全部业务员，即“a,b,c,d,e”，当用户打开复选组合框，去掉d,e的钩钩，只剩a,b,c业务员，这时窗口a中的销货表数据，只显示a,b,c业务员相关数据。

这样的筛选代码怎么写呀？看了帮助，这个CheckedComboBox复选组合框例子很少，请老师指点一下。谢谢！

顺便问下这个CheckedComboBox复选组合框的点开后”确定“按钮的代码是什么？

此主题相关图片如下：3333.jpg

[此贴子已经被作者于2016/8/23 16:01:05编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/23 15:27:00 [只看该作者]

直接写TextChanged事件

Dim s As String
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each Index As Integer In l.CheckedIndices
s = s & "'" & l.Items(Index) & "',"
Next

Tables("订单").Filter = "产品 In (" & s.trim(",") & ")"

kolen

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

加好友

发短信

等级：三尾狐帖子：677 积分：6228 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2016/8/23 16:00:00 [只看该作者]

我是这个CheckedComboBox控件，它也有CheckedIndices这个属性吗？

好像没有的

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/23 16:03:00 [只看该作者]

哦，看错了

Dim s As String = e.Sender.Text

Tables("订单").Filter = "产品 In ('" & s.replace("|", "','") & "')"

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

主题：CheckedComboBox复选组合框的代码怎么写？