Office中国论坛/Access中国论坛

标题: 如何得到列表多重选择的值？ [打印本页]

作者: bloom 时间: 2005-11-20 07:39
标题: 如何得到列表多重选择的值？
[attach]14268[/attach]

代码：

Dim a As String

Dim i As Long

For i = 1 To Me.列表0.ItemsSelected.Count

a = a & Me.列表0.Column(0) & ";"

Next i

MsgBox "列表中选中了：" & a & " 共选中" & Me.列表0.ItemsSelected.Count & "项。"

[attach]14269[/attach]

作者: tz-chf 时间: 2005-11-20 18:24
图片无法缩放

作者: wu8313 时间: 2005-11-21 04:52
论坛改版后，图片没法查看。

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