Programación General > Visual Basic 6.0 e inferiores

 No Repetir Items En Un Listbox

(1/1)

Javochin:
Hola a todos:

El Codigo qeu he hecho es el siguiente:


--- Código: Text ---Tramite As StringAgregado as BooleanGridTab2=DBGridLstTramites=ListBox  Tramite = GridTab2.Columns(0).TextFor i = -1 To LstTramites.ListCount           If Tramite = LstTramites.Text Then             Agregado = False           Else                     Agregado = True       End IfNext i  If Agregado = True Then            LstTramites.AddItem TramiteElse            MsgBox "El Trámite ya fué agregado", vbInformationEnd If  

Espero su Colaboración

cpmario:
Usa este listado

--- Código: Text ---    Agregado = True    For i = 0 To LstTramites.ListCount        If Tramite = LstTramites.List(i) Then            Agregado = False        End If    Next i     If Agregado = True Then       LstTramites.AddItem Tramite    Else       MsgBox "El Trámite ya fué agregado", vbInformation    End If   :)

Alpha_:
Tal cual, el problema estaba en que en cada iteración estabas cambiando el valor de Agregado.

En cambio, con el código que te dio cpmario, lo cambia solo en el caso en que lo encontrara.

Saludos.

Javochin:
Gracias CpMario, tu codigo me sirvió a la perfección.

No soy nuevo en el mundo de la programación, pero se me olvido como hacer un ciclo de busquedas. ;)


Mil Gracias :)

Navegación

[0] Índice de Mensajes