[已解决]双击ListView1数据可以修改，但是没数据时双击会出错呢？谢谢

qinhuan66

双击ListView1数据可以修改，但是没数据时双击会出错呢？谢谢
求助7.rar (53.08 KB, 下载次数: 75)

2014-11-9 18:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-9 21:49

1. Private Sub ListView1_DblClick()
   
2.     If ListView1.SelectedItem Is Nothing Then
   
3.         MsgBox "没有选择数据项"
   
4.         Exit Sub
   
5.     End If
   
6.     bh = ListView1.SelectedItem
   
7.     lRow = ListView1.SelectedItem.SubItems(14)
   
8.     修改窗口.Show 0
   
9.     With 修改窗口
   
10.         .ComboBox1.Text = bh
    
11.         Dim i&
    
12.         For i = 1 To 4
    
13.             .Controls("combobox" & i + 1).Text = ListView1.SelectedItem.SubItems(i)
    
14.         Next
    
15.         For i = 1 To 7
    
16.             .Controls("textbox" & i).Text = ListView1.SelectedItem.SubItems(i + 4)
    
17.         Next
    
18.         .ComboBox6 = ListView1.SelectedItem.SubItems(12)
    
19.     End With
    
20. End Sub

复制代码

跳转到最佳答案楼层

QLZ0602

增加 1个 if语句不就可以了吗？

hwc2ycy

1. Private Sub ListView1_DblClick()
   
2.     If ListView1.SelectedItem Is Nothing Then
   
3.         MsgBox "没有选择数据项"
   
4.         Exit Sub
   
5.     End If
   
6.     bh = ListView1.SelectedItem
   
7.     lRow = ListView1.SelectedItem.SubItems(14)
   
8.     修改窗口.Show 0
   
9.     With 修改窗口
   
10.         .ComboBox1.Text = bh
    
11.         Dim i&
    
12.         For i = 1 To 4
    
13.             .Controls("combobox" & i + 1).Text = ListView1.SelectedItem.SubItems(i)
    
14.         Next
    
15.         For i = 1 To 7
    
16.             .Controls("textbox" & i).Text = ListView1.SelectedItem.SubItems(i + 4)
    
17.         Next
    
18.         .ComboBox6 = ListView1.SelectedItem.SubItems(12)
    
19.     End With
    
20. End Sub

复制代码