Question

vb ListView1和list1对比

控件ListView（控件名：ListView1）、控件listbox（控件名：list1）、控件textbox（控件名：text3）
当text3.text=“1”时控件ListView1里所有的值和控件list1所有的值进行对比
例1：ListView1里有： list1里有：
nihao mingzi
women tuandui
neirong fenlei
这个时候ListView1里的内容没有和list1的内容重复，msgbox“没有重复的记录”

例2：ListView1里有： list1里有：
nihao mingzi
women tuandui
neirong fenlei
mingzi qiuzhu
这个时候ListView1里的内容“mingzi”有和list1的内容“名字”重复，msgbox“有信息重复”

我要一个详细的代码，
lxmzyh回答的不行
请测试玩了之后在给我

实在不行就加一个控件list2
把ListView1里没有list1的数据提取到list2

Answer 1

会不会是你定义的变量与数组同名，所以不能进入循环？
你将你的代码发上来，看看能不能修改一下。

Answer 2

我给你回答吧，关键看你的ListView1是有几列，下面我假设只有一列（所有数据写在一个列里）
添加一个command1按钮，将以下代码复制到command1按钮中，点击按钮开始判断：

Private Sub Command1_Click()
Dim xa() As String, xb() As String, m As Long, n As Long
m = ListView1.ListItems.Count: n = List1.ListCount
ReDim xa(m), xb(n)
For i = 1 To m
xa(i) = ListView1.ListItems(i).Text
Next
For i = 0 To n - 1
xb(i + 1) = List1.List(i)
Next
For i = 1 To m
For ii = 1 To n
If xa(i) = xb(ii) Then
MsgBox "有信息重复"
Exit Sub
End If
Next ii
Next i
MsgBox "没有重复的记录"
End Sub

追问

不行，总是提示“没有重复记录”，而且我改了
Dim xa() As String, xb() As String, m As Long, n As Long
改成
Dim xa() As String, xb() As String, m As Long, n As Long，i as integer,ii as integer

还是提示“没有重复记录”

追答

这本来就是一个非常简单的问题：麻烦的是回答者无法知道你的ListView1控件中的数据排放规则。你最好将ListView1的数据结构（或数据样式截图）贴出来看看，因为ListView1是一种表格形式，你的数据是分布在哪一列上或在哪一行上、这些是要考虑的问题，我给你的代码是默认ListView1的数据分布在第一列上的(这是假设的)。
有问题，就继续问，一定可以解决的哦。或直接发过来我帮你看也可以。

Answer 3

Private Sub Form_Load()
Dim Index1 As Long, Index2 As Long, TextS1 As String, TextS2 As String
For Index1 = 1 To List1.Columns
TextS1 = List1.List(Index1)
For Index2 = 1 To ListView1.AllowColumnReorder '(这个是指的ListView1的记录数，我忘记属性是什么了，自己找下吧)
TextS2 = ListView1.ListItems(Index2).Text
If TextS1 = TextS2 Then
MsgBox "老大相等啦"
'这个地方的Index1、Index2就是你要找的相同的索引值
Exit For
End If
Next
Next
End Sub

追问

看不懂
我试过了
不行
请根据我的提问作答
麻烦你了
满意了加分

追答

先将list1列表的第一行值取出，用其与ListView1较，若比较相同就弹出对话框，不同继续循环，将ListView1的比较完毕后，再次修改将list1的第二行取出，用同样的方法比较，全部比较后若未弹出就相同了

追问

你没有理解意思，我的意思是全部检查完了之后在msgbox
请给详细代码

追答

那就建立两个数组，一个用于保存ListView1，一个用于保存list1，将我写的msgbox 换成数组，去掉EXIT FOR然后全部循环完毕在读出数组中的值就好了

追问

我要详细代码，请测试过以后在给我。

追答

Private Sub Form_Load()
Dim Index1 As Long, Index2 As Long, TextS1 As String, TextS2 As String
'添加一个list2

For Index1 = 1 To List1.Columns
TextS1 = List1.List(Index1)
For Index2 = 1 To ListView1.AllowColumnReorder '(这个是指的ListView1的记录数，我忘记属性是什么了，自己找下吧)
TextS2 = ListView1.ListItems(Index2).Text
If TextS1 = TextS2 Then
MsgBox "老大相等啦"
'这个地方的Index1、Index2就是你要找的相同的索引值
List2.AddItem "相同位置：" & ListView1.AllowColumnReorder & " 与list1: " & List1.List(Index) & "内容为： " & TextS2
Exit For
End If
Next
Next
End Sub