Office中国论坛/Access中国论坛

标题: [求助]关于列表框问题 [打印本页]

作者: eyewitnes 时间: 2007-4-27 18:36
标题: [求助]关于列表框问题
要求打印列表框中所有选定的项目

以下代码节选自帮助

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

为何编译提示参数(itemselected)不可选?有其他方法可以达到相同效果吗?

作者: sgrshh29 时间: 2007-4-27 20:04
winxp+access2000试过了，一切正常，没有发现问题。

Dim ctl As Control
Set ctl = Me.List0
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

作者: eyewitnes 时间: 2007-4-27 22:03
怪事...现在又可以了

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