Office中国论坛/Access中国论坛

标题: 多选并复制的问题 [打印本页]

作者: goto2008 时间: 2009-12-4 16:23
标题: 多选并复制的问题
本帖最后由 goto2008 于 2009-12-4 16:36 编辑

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

怎么实现??

[attach]40626[/attach]

作者: todaynew 时间: 2009-12-4 18:20
本帖最后由 todaynew 于 2009-12-4 20:17 编辑

[attach]40632[/attach]

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

[attach]40633[/attach]

作者: goto2008 时间: 2009-12-4 20:44
非常感谢todaynew 大哥。。。是这个效果。

作者: goto2008 时间: 2009-12-6 22:19
请教，我想实现多选出来的结果，按一行一行排列，那样好像看着拥挤。。。
能否实现如下效果。。。。
工号1:姓名1,
工号2:姓名2,
工号3:姓名3

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)