将list选中的值赋值给变量i的语句如何写

fan0217

可以使用strName之类的。

sgrshh29

以下是引用gpgpgp在2006-7-10 17:03:00的发言：
换成别的其他变量还是一样。

Private Sub List2_Click()
myname = Me.List2
MsgBox myname
End Sub

[此贴子已经被作者于2006-7-10 17:17:15编辑过]

gpgpgp

按11楼又试了,Me.List2始终提示:=NULL

gpgpgp

sgrshh29老师您好！问题发现了。在LIST的多重选择的属性上如果选择“无”，运行没有问题。该属性如果选择“简单”，即实现多选，就出问题了。这个问题该如何解决？

fan0217

多选需要使用循环来获取全部的选定项目。

wuaza

1. Sub BoundData()
       Dim frm As Form, ctl As Control
       Dim varItm As Variant
   
       Set frm = Forms!form1
       Set ctl = frm!list2
       For Each varItm In ctl.[b]ItemsSelected[/b]
           msgbox ctl.ItemData(varItm)
       Next varItm
   End Sub

复制代码

[此贴子已经被作者于2006-7-10 21:01:27编辑过]

gpgpgp

LIST2的多重选择的属性上如果选择“无”，运行没有问题。该属性如果选择“简单”，即实现多选，就出问题了.现将范例上传。

fan0217

将你的例子的代码重新写过，看看是不是这样的。

gpgpgp

fan0217版主非常感谢．问题解决了！