[已解决]ListView中数据与textbox数据比较

arnold6901

file:///C:\Users\arnold\AppData\Roaming\Tencent\Users\840733521\QQ\WinTemp\RichOle\ZMF`((H0HLYOSTCZ{6I2JL8.jpg如图，我想在保存数据时，与listview中的数据进行对比。看有没有一样的，有的话就不能保存。请问如何取出listview中的值与textbox中的值作比较。具体代码见程序。谢谢大家~~

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-16 18:33

1. Private Sub CommandButton1_Click()
   
2. If TextBox1 = "" Then
   
3. MsgBox "布卷号不存在请重新输入布卷号"
   
4. Exit Sub
   
5. End If
   
6. If TextBox2 = "" Then
   
7. MsgBox "布卷长度不存在请重新输入布卷长度"
   
8. Exit Sub
   
9. End If
   
10. If TextBox3 = "" Then
    
11. MsgBox "花号不存在请重新输入花号"
    
12. Exit Sub
    
13. End If
    
14.     Dim i As Integer, n As Integer
    
15.     n = ListView1.ListItems.Count
    
16.     If n = 0 Then GoTo add
    
17.     For i = 1 To n
    
18.         If ListView1.ListItems.Item(i) = TextBox1 Then
    
19.             MsgBox "此布卷已经录入，请换录入其他布卷"
    
20.             Exit Sub
    
21.         End If
    
22.     Next i
    
23. add: Dim Itm As ListItem
    
24.     Set Itm = ListView1.ListItems.add()
    
25.     Itm.Text = TextBox1
    
26.     Itm.SubItems(1) = TextBox2
    
27.     Itm.SubItems(2) = TextBox3
    
28.     Itm.SubItems(3) = TextBox4
    
29.    For i = 1 To 4
    
30.         Me.Controls("Textbox" & i) = ""
    
31.     Next
    
32. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

取出listview.items，然后循环与textbox.text做比较

arnold6901

hwc2ycy 发表于 2012-10-16 16:53
取出listview.items，然后循环与textbox.text做比较

谢谢。请问怎么取出第一例的值？能否给出具体代码？

hwc2ycy

1.     Dim n&, sItem
   
2.     n = ListView1.ListItems.Count
   
3.     If n = 0 Then Exit Sub
   
4.     For Each sItem In ListView1.ListItems
   
5.         If TextBox1.Text = sItem Then Debug.Print "True"
   
6.     Next
   
7. '    For i = 1 To n
   
8. '        If TextBox1.Text = ListView1.ListItems.Item(i) Then Debug.Print "True"
   
9. '    Next

复制代码

hwc2ycy

其实你代码里已经有了。
我是现学现用，又学一招啊，
注释的部分是另外一种循环方法。

arnold6901

hwc2ycy 发表于 2012-10-16 17:51
其实你代码里已经有了。
我是现学现用，又学一招啊，
注释的部分是另外一种循环方法。

谢谢。我也是刚开始学习VBA，还有好多地方都不怎么理解。
但是还是不行， 不能把数据保存到listview中了。还有我想问下 ListView1.ListItems.Item(i)这一句是取listview里面第一列的值么？
我今天被这个折腾了一天都没找到准确的答案。[em06]

hwc2ycy

我的代码当然不会保存啦。我只是测试。
你的程序刚一开始运行时不会把表中已经数据读入LISTVIEW中吗？

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2. If TextBox1 = "" Then
   
3. MsgBox "布卷号不存在请重新输入布卷号"
   
4. Exit Sub
   
5. End If
   
6. If TextBox2 = "" Then
   
7. MsgBox "布卷长度不存在请重新输入布卷长度"
   
8. Exit Sub
   
9. End If
   
10. If TextBox3 = "" Then
    
11. MsgBox "花号不存在请重新输入花号"
    
12. Exit Sub
    
13. End If
    
14.     Dim i As Integer, n As Integer
    
15.     n = ListView1.ListItems.Count
    
16.     If n = 0 Then GoTo add
    
17.     For i = 1 To n
    
18.         If ListView1.ListItems.Item(i) = TextBox1 Then
    
19.             MsgBox "此布卷已经录入，请换录入其他布卷"
    
20.             Exit Sub
    
21.         End If
    
22.     Next i
    
23. add: Dim Itm As ListItem
    
24.     Set Itm = ListView1.ListItems.add()
    
25.     Itm.Text = TextBox1
    
26.     Itm.SubItems(1) = TextBox2
    
27.     Itm.SubItems(2) = TextBox3
    
28.     Itm.SubItems(3) = TextBox4
    
29.    For i = 1 To 4
    
30.         Me.Controls("Textbox" & i) = ""
    
31.     Next
    
32. End Sub

复制代码

hwc2ycy

数据统计- 副本.rar (16.89 KB, 下载次数: 61)

2012-10-16 18:33 上传

点击文件名下载附件

arnold6901

hwc2ycy 发表于 2012-10-16 18:33

谢谢班长。用你的这个完美实现了。但是还是有一点我没能理解啊， If n = 0 Then GoTo add。这句代码不是很理解，为什么需要这句？我理解的逻辑是，如果列表里没有数据，那就直接将数据保存到listview中就可以了，增加一行是什么意思。