如何判断对象变量或 With 块变量未设置？？

[xhggg]

如果ListView中没有数据，我的双击时程序想读出点的是那行，但会出现错误，如何判断这个错误的产生？
NowColume = ListView1.SelectedItem.Index
例如想实现这样的效果：
IF ListView1.SelectedItem.Index=NULL Then MsgBox "表格中没有数据！"

[huangjianyou]

Private Sub ListView1_DblClick()
If ListView1.SelectedItem Is Nothing Then
MsgBox 表格中没有数据！"
End If
End Sub

^_^

[xhggg]

嘎嘎！！！！


谢谢，马上分给你了，呵呵


请继续关注xhggg的问题

[flyingZFX]

我在大部分时间里都不太喜欢使用SelectedItem这个属性

我喜欢用这个

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim CurListitem As ListItem

Set CurListitem = Me.ListView1.HitTest(x, y)

End Sub

========

另外判断对象存在不存在，应该这样

if object is nothing then XXXXXX