Programación General > Visual Basic 6.0 e inferiores

 Datos Repetidos en un ListBox

(1/1)

csrkstro:
hola, necesito borrar datos repetidos de un listbox.
por ejemplo si hay 2 numeros iguales quiero que solo me quede uno

gracias!!!

eve_21:
el listbox lo cargas desde una base de datos?
porque si es asi tienes que hacer un SELECT distinct campo_tabla FROM tabla
de esta forma solo seleccionara todos los valores distintos.

ojala te ayude

saludos

79137913:
JAJAJA, ME VOLVI LOCO PERO SALIO!!!

era mas simple de lo que pensaba


--- Código: Visual Basic --- Private Sub Command1_Click()Dim Cambio As Boolean, X As Byte, Y As Byte Cambio = True 'Hace que lo de abajo se ejecute Do While Cambio = True 'Se repetira hasta que no haga algun cambioCambio = FalseFor Y = 0 To (List1.ListCount - 1) ' Mira cada elemento desde el principioFor X = Y + 1 To (List1.ListCount - 1) 'Mira desde el siguiente elemento hasta el finalIf List1.List(X) = List1.List(Y) Then 'Compara si son igualesList1.RemoveItem (X) 'Como si lo son procede a borrar el segundo elementoCambio = True 'Le indica a vb que repita el proceso por otra posible repeticionEnd IfNext XNext YLoop End Sub  


SUERTE!!!


QUE TE SIRVA

Navegación

[0] Índice de Mensajes