如图片,多值字段选择完后,怎么可以按右边的方式显示?

已经用下列框实现我想要的功能了.现在想更进一步,就是我同时选中多行,怎么对我选中的多行赋同样的值,因为有的时候,多行的任务是相同的,

原代码是:

写成这样,可以实现不了

With Tables("项目总表")
    If .TopPosition > -1 Then \'如果选定区域包括数据行
          For i as Integer = .TopPosition To .BottomPosition
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 = e.Form.DropDownBox.Value & rdo.Text & vbcrlf \'将此单选框的文本赋值给下拉组合框
        End If
    End If
Next
     Next
    End If
End With
e.Form.DropDownBox.CloseDropdown() \'关闭下拉窗口

我要实现多行同样值.

按上边的代码,出来后是一个勾选框放在一行里了,不是我想要的

谢谢,已经解决.

不过按上边的,如果选了个空值,会报警,优化了一下如下:

Dim s As String
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 = s & vbcrlf  & rdo.Text \'将此框的文本赋值给下拉组合框
        End If
    End If
Next
If s IsNot Nothing Then
    s = s.trim(vbcr,vblf)
    For i As Integer = Tables("项目总表").TopPosition To Tables("项目总表").BottomPosition
        Tables("项目总表").rows(i)("设计内容") = s
    Next
Else
    For i As Integer = Tables("项目总表").TopPosition To Tables("项目总表").BottomPosition
        Tables("项目总表").rows(i)("设计内容") = ""
    Next
End If
e.Form.DropDownBox.Value = s
e.Form.DropDownBox.CloseDropdown() \'关闭下拉窗口