Domingo 8 de Septiembre de 2024, 01:27
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Datos Repetidos en un ListBox
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Datos Repetidos en un ListBox (Leído 10545 veces)
csrkstro
Nuevo Miembro
Mensajes: 14
Datos Repetidos en un ListBox
«
en:
Jueves 10 de Junio de 2010, 02:48 »
0
hola, necesito borrar datos repetidos de un listbox.
por ejemplo si hay 2 numeros iguales quiero que solo me quede uno
gracias!!!
Tweet
eve_21
Nuevo Miembro
Mensajes: 15
Re: Datos Repetidos en un ListBox
«
Respuesta #1 en:
Miércoles 28 de Julio de 2010, 00:35 »
0
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
Nuevo Miembro
Mensajes: 16
Re: Datos Repetidos en un ListBox
«
Respuesta #2 en:
Miércoles 28 de Julio de 2010, 17:52 »
0
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 cambio
Cambio =
False
For
Y = 0
To
(List1.ListCount - 1)
' Mira cada elemento desde el principio
For
X = Y + 1
To
(List1.ListCount - 1)
'Mira desde el siguiente elemento hasta el final
If
List1.List(X) = List1.List(Y)
Then
'Compara si son iguales
List1.RemoveItem (X)
'Como si lo son procede a borrar el segundo elemento
Cambio =
True
'Le indica a vb que repita el proceso por otra posible repeticion
End
If
Next
X
Next
Y
Loop
End
Sub
SUERTE!!!
QUE TE SIRVA
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Datos Repetidos en un ListBox