- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何处理下拉窗口的复选框的多选值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93468)
-- 发布时间：2016/11/29 15:53:00
-- 如何处理下拉窗口的复选框的多选值
各位老师好，下图是帮助中下拉窗口获取单个值的，那复选框多选要如何处理呢？
此主题相关图片如下：微信截图_20161129155054.png
-- 发布时间：2016/11/29 16:47:00
--
麻烦代码贴出来
-- 发布时间：2016/11/29 17:03:00
--
For Each ctl As WinForm.Control In e.Form.Controls \'遍历所有控件
If TypeOf ctl Is WinForm.CheckBox Then \'如果此控件是RadionButton(单选框)
Dim rdo As WinForm.CheckBox = ctl
If rdo.Checked Then \'如果已经选中
e.Form.DropDownBox.Value = rdo.Text \'将此单选框的文本赋值给下拉组合框
e.Form.DropDownBox.CloseDropdown() \'关闭下拉窗口
Exit For
End If
End If
Next
以上是帮助文档的内容
以下是我自己写的：
dim s as .....
For Each ctl As WinForm.Control In e.Form.Controls \'遍历所有控件
If TypeOf ctl Is WinForm.CheckBox Then \'如果此控件是
Dim rdo As WinForm.CheckBox = ctl
If rdo.Checked Then \'如果已经选中
s
Exit For
End If
End If
Next
e.Form.DropDownBox.Value = s \'将此单选框的文本赋值给下拉组合框
e.Form.DropDownBox.CloseDropdown() \'关闭下拉窗口
-- 发布时间：2016/11/29 17:06:00
--
-- 发布时间：2016/11/29 17:11:00
--
一样咯，定义一个字符串，循环，如果是checked的，就把字符赋值给它，循环结束后，赋值给下拉框，关闭窗口
-- 发布时间：2016/11/29 17:47:00
--
对，
s &= rdo.Text & ","
e.Form.DropDownBox.Value = s.trim(",")
就是这个不懂得弄。谢谢两位老师！！