listview点击后读取选取的记录，如果记录为空时怎么跳出

danhanqing

Private Sub listview1_click()
    Dim i As Integer, mysql As String
    i = ListView1.SelectedItem.Index
    Me.Controls(页面名称 & "_" & "单位名称").Value = ListView1.ListItems(i).Text
    Me.Controls(页面名称 & "_" & "联系人").Value = ListView1.ListItems(i).SubItems(1)
    Me.Controls(页面名称 & "_" & "联系电话").Value = ListView1.ListItems(i).SubItems(2)
    Me.Controls(页面名称 & "_" & "业务积分").Value = ListView1.ListItems(i).SubItems(3)
End Sub

列表有内容时是没问题的。但如果是空的或是点点到空记录上时，就会出错

请老师指教！
谢谢！

ivccav

两种方法：

1. If ListView1.SelectedItem Is Nothing Then

只要Listview有列表，就默认选中第一行，除非鼠标选中了其他行。

2. If ListView1.ListItems.Count = 0 Then

如果Count为零，表示Listview为空。

你在你的代码 i = ListView1.SelectedItem.Index前面加一句判断即可：

If Not ListView1.SelectedItem Is Nothing Then 或者
If ListView1.ListItems.Count > 0 Then

ivccav

发文字审核的概率太高了，哎！再发1次吧，图片：


你用的那个应该换一下：


分享一个回复其他问题的listview给你参考吧：

教师职称资格录入窗体.zip (31.43 KB, 下载次数: 6)

2018-6-26 20:19 上传

点击文件名下载附件

shizhe80

Private Sub ListView1_DblClick() If ListView1.ListItems.Count > 0 Then       Dim i As Integer, mysql As String     i = ListView1.SelectedItem.Index     Me.Controls(页面名称 & "_" & "单位名称").Value = ListView1.ListItems(i).Text     Me.Controls(页面名称 & "_" & "联系人").Value = ListView1.ListItems(i).SubItems(1)     Me.Controls(页面名称 & "_" & "联系电话").Value = ListView1.ListItems(i).SubItems(2)     Me.Controls(页面名称 & "_" & "业务积分").Value = ListView1.ListItems(i).SubItems(3) End Sub

shizhe80

Private Sub ListView1_DblClick()
If ListView1.ListItems.Count > 0 Then
Dim i As Integer, mysql As String
    i = ListView1.SelectedItem.Index
    Me.Controls(页面名称 & "_" & "单位名称").Value = ListView1.ListItems(i).Text
    Me.Controls(页面名称 & "_" & "联系人").Value = ListView1.ListItems(i).SubItems(1)
    Me.Controls(页面名称 & "_" & "联系电话").Value = ListView1.ListItems(i).SubItems(2)
    Me.Controls(页面名称 & "_" & "业务积分").Value = ListView1.ListItems(i).SubItems(3)
end if
End Sub
这样就可以了