设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1972|回复: 2

[窗体] 解决,多选列表框不循环的问题

[复制链接]
发表于 2012-7-7 16:36:01 | 显示全部楼层 |阅读模式
本帖最后由 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

评分

参与人数 1经验 +5 收起 理由
鱼儿游游 + 5 很给力!

查看全部评分

发表于 2012-7-8 05:06:15 | 显示全部楼层
印象中应该是ItemData(i)的吧?
详细看:http://www.office-cn.net/thread-96517-1-1.html
附件中的删除部按钮单击事件的代码(建议多录入几条后再执行删除)。

点击这里给我发消息

发表于 2012-7-8 08:56:03 | 显示全部楼层
本帖最后由 鱼儿游游 于 2012-7-8 09:00 编辑

给力,此方法可直接对列表框的内容,做类似单元格的操作:<列表框>.Column(<列号>,<行号>)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 22:00 , Processed in 0.098351 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表