以文本方式查看主题

-  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=70236)

--  作者:307587760
--  发布时间:2015/6/17 16:31:00
--  [求助]CheckedComboBox全选
请问老师怎么能够让CheckedComboBox做到全选呢?有些情况可能需要选择全选,列表项目又太多,一个个打勾是不是很累
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150617163156.png
图片点击可在新窗口打开查看

--  作者:lsy
--  发布时间:2015/6/17 16:39:00
--  
DoubleClick

e.Sender.Value = e.Sender.ComboList.Replace("|",",")
--  作者:307587760
--  发布时间:2015/6/17 16:55:00
--  
请问lsy老师我的DoubleClick代码这样写正确么?怎么没有效果啊
If e.Sender.SelectedItem="选择所有" Then
e.Sender.Value = e.Sender.ComboList.Replace("|",",")
End If
[此贴子已经被作者于2015/6/17 16:55:05编辑过]

--  作者:pcxjxjhkw
--  发布时间:2015/6/17 16:55:00
--  
建议用下拉窗口
--  作者:307587760
--  发布时间:2015/6/17 17:03:00
--  
LSY 老师你好:我把你所说的代码放在了SelectedIndexChanged里面起作用了,但是只是文本框里面有作用,下拉框中的数据并没有勾选上,求指教

图片点击可在新窗口打开查看此主题相关图片如下:dropdownlist.png
图片点击可在新窗口打开查看


--  作者:lsy
--  发布时间:2015/6/17 17:06:00
--  
TextChanged

If e.Sender.Text.Contains("选择所有") Then
    e.Sender.Value = e.Sender.ComboList.Replace("选择所有","").Replace("|",",").Trim(",")
End If
[此贴子已经被作者于2015/6/17 17:08:06编辑过]

--  作者:307587760
--  发布时间:2015/6/17 17:12:00
--  
LSY老师:貌似还是行不通哦,没有反应的
--  作者:307587760
--  发布时间:2015/6/17 17:14:00
--  
请教:文本值发生变化后能否刷新下拉框呢,如果能刷新估计勾就自动打上了
--  作者:Bin
--  发布时间:2015/6/17 17:14:00
--  
额外增加一个全选按钮

e.form.controls("CheckedComboBox1").Value = e.form.controls("CheckedComboBox1").ComboList.Replace("选择所有","").Replace("|",",").Trim(",")

--  作者:lsy
--  发布时间:2015/6/17 17:15:00
--  
行的啊:


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150617171500.jpg
图片点击可在新窗口打开查看