如何检查listbox中的重复的行
哪位大侠能告诉我，怎么样才能判断出listbox中的重复的值
[解决办法]
For i = 0 To 8
If Combo_nms(i).Text <> " " Then
For j = i + 1 To 9
If Combo_nms(j) <> " " Then
If Trim(Combo_nms(i).Text) = Trim(Combo_nms(j).Text) Then
MsgBox "工厂不可以相同，需再次写入 "
Combo_nms(j).ListIndex = -1
End If
End If
Next
End If
这是我写的一个combo和list是一样的，供楼主参考，我也想知道还有什么好的方法吗？
[解决办法]
如果list里不会有 ", "则可以写如下函数
Private Function CheckList(lst As ListBox)
Dim iMax As Integer
Dim strTemp As String
Dim i As Integer
iMax = lst.ListCount
strTemp = ", "
With lst
For i = 0 To iMax - 1
If InStr(strTemp, ", " & .List(i) & ", ") = 0 Then
strTemp = strTemp & .List(i) & ", "
Else
Debug.Print i & ": " & .List(i)
End If
Next
End With
End Function
画面上Listbox list为
11
22
33
44
55
66
22
CheckList list1 调用后
输出
6:22
7:11
表示第7，8行的值 22,11是重复的
