- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- CheckedComboBox复选组合框的代码怎么写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89506)
-- 发布时间：2016/8/23 15:06:00
-- CheckedComboBox复选组合框的代码怎么写？
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编辑过]
-- 发布时间：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(",") & ")"
-- 发布时间：2016/8/23 16:00:00
--
我是这个CheckedComboBox控件，它也有CheckedIndices这个属性吗？
好像没有的
-- 发布时间：2016/8/23 16:03:00
--
哦，看错了
Dim s As String = e.Sender.Text
Tables("订单").Filter = "产品 In (\'" & s.replace("|", "\',\'") & "\')"