主题：如何处理下拉窗口的复选框的多选值

各位老师好，下图是帮助中下拉窗口获取单个值的，那复选框多选要如何处理呢？

此主题相关图片如下：微信截图_20161129155054.png

麻烦代码贴出来

 

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() '关闭下拉窗口

 一样咯，定义一个字符串，循环，如果是checked的，就把字符赋值给它，循环结束后，赋值给下拉框，关闭窗口

对，   

s &= rdo.Text & ","

e.Form.DropDownBox.Value = s.trim(",")

就是这个不懂得弄。谢谢两位老师！！