怎样判定列表框没有被选定

zhaoxiaolin

我有一个列表框,来源于一个表,我想修改表中的记录,就是在列表框中选定什么就修改什么,如若列表框没有被选定,说提示未选定记录

fan0217

多选：



Sub Main()
    Dim ctl As Control, varItm As Variant
    Set ctl = Me.List0
    For Each varItm In ctl.ItemsSelected
        Debug.Print ctl.ItemData(varItm)
    Next
End Sub



单选：

If IsNull(Me.List0.Value) Then
    MsgBox "你没有选择！"
End If

或者：

Me!Listbox.Selected(０) ：判断其值即可True 或者False。

[此贴子已经被作者于2006-12-23 21:23:43编辑过]

zhaoxiaolin

谢谢fan0217,不过还是有一个小问题解决,请帮忙再看一下

我有两个列表框(分别用列1 和列2表示,其中列2数据来源随着列1的的选定而改变,当开始打开窗体时,fan0217程序可以解决,但假如点击列1的第一条记录,列2无记录,点列1的第二条记录,有记录的话,然后再回到列1的第一条记录,这个程序就无效了,不知怎样解决

fan0217

例子发上来

tz-chf

没选定不就是-1嘛