[已解决]请求坛里的老师帮忙！判断添加数据前，是否已有相同项目！

meizu9

请求坛里的老师帮忙！判断添加数据前，是否已有相同项目！
添加数据，判断终止重复添加.rar (142.99 KB, 下载次数: 2)

2016-9-29 23:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-9-30 10:41

SSS窗体的Listview1双击事件改下。

1. Private Sub ListView1_DblClick()
   
2. Dim Z, S, a%
   
3. Set S = ListView1
   
4. With ZZZ.ListView1
   
5.     For a = 1 To .ListItems.Count
   
6.         If .ListItems(a).SubItems(1) = S.SelectedItem.SubItems(1) Then
   
7.             MsgBox "【" & S.SelectedItem.SubItems(1) & "】已存在！", vbExclamation: Exit Sub
   
8.         End If
   
9.     Next
   
10.    Set Z = .ListItems.Add()
    
11.             Z.Text = .ListItems.Count
    
12.             Z.SubItems(1) = S.SelectedItem.SubItems(1)
    
13.             Z.SubItems(2) = S.SelectedItem.SubItems(2)
    
14.             Z.SubItems(3) = S.SelectedItem.SubItems(3)
    
15.             Z.SubItems(4) = S.SelectedItem.SubItems(4)
    
16.             Z.SubItems(5) = S.SelectedItem.SubItems(5)
    
17.             Z.SubItems(6) = S.SelectedItem.SubItems(6)
    
18.             Z.SubItems(7) = S.SelectedItem.SubItems(7)
    
19. End With
    
20. End Sub

复制代码

跳转到最佳答案楼层

gufengaoyue

SSS窗体的Listview1双击事件改下。

1. Private Sub ListView1_DblClick()
   
2. Dim Z, S, a%
   
3. Set S = ListView1
   
4. With ZZZ.ListView1
   
5.     For a = 1 To .ListItems.Count
   
6.         If .ListItems(a).SubItems(1) = S.SelectedItem.SubItems(1) Then
   
7.             MsgBox "【" & S.SelectedItem.SubItems(1) & "】已存在！", vbExclamation: Exit Sub
   
8.         End If
   
9.     Next
   
10.    Set Z = .ListItems.Add()
    
11.             Z.Text = .ListItems.Count
    
12.             Z.SubItems(1) = S.SelectedItem.SubItems(1)
    
13.             Z.SubItems(2) = S.SelectedItem.SubItems(2)
    
14.             Z.SubItems(3) = S.SelectedItem.SubItems(3)
    
15.             Z.SubItems(4) = S.SelectedItem.SubItems(4)
    
16.             Z.SubItems(5) = S.SelectedItem.SubItems(5)
    
17.             Z.SubItems(6) = S.SelectedItem.SubItems(6)
    
18.             Z.SubItems(7) = S.SelectedItem.SubItems(7)
    
19. End With
    
20. End Sub

复制代码