List View doppelte eintraege loeschen Verfasst am: 07.01.2009, 17:19
hallo zusammen
ich moechte aus einem listview alle doppelten eintrage loeschen.
die erste spalte soll auf doppelte ueberprueft werden, und wenn ein doppelter gefunden wurde, soll die ganze zeile geloescht werden.
so habe ich es bereits probier:
Code:
Private Sub doppelt()
Dim iptoadd() As String
Dim indextoadd() As Integer
Dim i As Integer
Dim k As Integer
On Error Resume Next
tocheck = lvclients.ListItems.Count
For i = 1 To tocheck
found = 0
iptocheck = lvclients.ListItems(i).Text
For k = 1 To tocheck
If StrComp(lvclients.ListItems(k).Text, iptocheck, vbTextCompare) = 0 Then
If found < 1 Then
found = found + 1
iptoadd(i - 1) = iptocheck
indextoadd(i - 1) = i
End If
End If
Next k
Next i
lvclients.ListItems.Clear
For i = 0 To UBound(iptoadd)
client_add iptoadd(i), indextoadd(i)
Next
End Sub
igoe Gast
Verfasst am: 10.02.2009, 19:48
Hier, habe ich mal schnell gemacht, das dürfte das sien was du suchst:
Code:
For i = lvclients.ListItems.Count To 1 Step -1
If i <> "" Then lvclients.ListItems.Remove i
Next i
Registrieren
Login
