Office中国论坛/Access中国论坛

标题: 将list选中的值赋值给变量i的语句如何写 [打印本页]

作者: gpgpgp 时间: 2006-7-10 23:20
标题: 将list选中的值赋值给变量i的语句如何写
如题.先谢谢大家了!

作者: sgrshh29 时间: 2006-7-11 00:17
如果是单选单列,变量=list

作者: gpgpgp 时间: 2006-7-11 00:32
sgrshh29老师谢谢！我应用后怎么什么也没有，请帮助看看问题出在哪里：

         With Me.List2
               For i = 0 To .ListCount - 1
                     If .Selected(i) Then
                           name = List
                           MsgBox name
                     End If
               Next
         End With

作者: fan0217 时间: 2006-7-11 00:34
   name =  Me.List2
   MsgBox name

作者: sgrshh29 时间: 2006-7-11 00:35
在list2控件的单击事件中写上:

name = Me.List2

MsgBox name

[此贴子已经被作者于2006-7-10 16:36:23编辑过]

作者: gpgpgp 时间: 2006-7-11 00:50
运行后该值为NULL，这个问题该如何解决！

作者: fan0217 时间: 2006-7-11 00:53
先判断不可以吗？

作者: gpgpgp 时间: 2006-7-11 00:55
能说的具体一点吗？

作者: sgrshh29 时间: 2006-7-11 00:57
变量名称不要用name一类的系统特定名称.(关键字)

[此贴子已经被作者于2006-7-10 16:58:18编辑过]

作者: gpgpgp 时间: 2006-7-11 01:03
换成别的其他变量还是一样。

作者: fan0217 时间: 2006-7-11 01:08
可以使用strName之类的。

作者: sgrshh29 时间: 2006-7-11 01:11

以下是引用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 时间: 2006-7-11 01:13
按11楼又试了,Me.List2始终提示:=NULL

作者: gpgpgp 时间: 2006-7-11 01:39
sgrshh29老师您好！问题发现了。在LIST的多重选择的属性上如果选择“无”，运行没有问题。该属性如果选择“简单”，即实现多选，就出问题了。这个问题该如何解决？

作者: fan0217 时间: 2006-7-11 02:16
多选需要使用循环来获取全部的选定项目。

作者: wuaza 时间: 2006-7-11 05:01

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 时间: 2006-7-11 17:49
标题: 谢谢各位老师的帮助
LIST2的多重选择的属性上如果选择“无”，运行没有问题。该属性如果选择“简单”，即实现多选，就出问题了.现将范例上传。[attach]18969[/attach]

作者: fan0217 时间: 2006-7-11 20:16
[attach]18973[/attach]

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

作者: gpgpgp 时间: 2006-7-12 00:38
fan0217版主非常感谢．问题解决了！

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