多选并复制的问题

goto2008

比如列表框多选三行记录，文本框即可以显示三行记录的合并，并用逗号隔开。


怎么实现??

todaynew

1、列表框的多重选择属性设置为展开的

2、列表框双击事件如下：
Private Sub 工序列表框_DblClick(Cancel As Integer)
Dim i As Long
Dim str As String
For i = 0 To Me.工序列表框.ListCount
    If Me.工序列表框.Selected(i) = True Then
           str = str & Me.工序列表框.Column(0, i) & Me.工序列表框.Column(1, i) & ";"
    End If
Next
Me.车间.Value = str
End Sub

goto2008

非常感谢todaynew 大哥。。。是这个效果。

goto2008

请教，我想实现多选出来的结果，按一行一行排列，那样好像看着拥挤。。。
能否实现如下效果。。。。
工号1:姓名1,
工号2:姓名2,
工号3:姓名3