Office中国论坛/Access中国论坛

标题: 解决,多选列表框不循环的问题 [打印本页]

作者: yedaoan 时间: 2012-7-7 16:36
标题: 解决,多选列表框不循环的问题
本帖最后由 yedaoan 于 2012-7-7 16:36 编辑

发现,多选列表框,用dubug.pring输出,只是输出同一个数据,不会向下循环,参考的MS的例子,解决这个问题,跟大家分享一下,
Sub AllSelectedData()
Dim frm As Form, ctl As Control
Dim varItm As Variant, intI As Integer

Set frm = Forms!Contacts
Set ctl = frm!Names
For Each varItm In ctl.ItemsSelected
      For intI = 0 To ctl.ColumnCount - 1
         Debug.Print ctl.Column(intI, varItm)
      Next intI
      Debug.Print
Next varItm
End Sub

作者: roych 时间: 2012-7-8 05:06
印象中应该是ItemData(i)的吧？
详细看：http://www.office-cn.net/thread-96517-1-1.html
附件中的删除部按钮单击事件的代码（建议多录入几条后再执行删除）。

作者: 鱼儿游游 时间: 2012-7-8 08:56
本帖最后由鱼儿游游于 2012-7-8 09:00 编辑

给力，此方法可直接对列表框的内容，做类似单元格的操作：<列表框>.Column(<列号>,<行号>)。

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