Autor Tema: No Repetir Items En Un Listbox (Leído 2818 veces)

Javochin · « **en:** Jueves 6 de Octubre de 2005, 00:55 »

Hola a todos:

El Codigo qeu he hecho es el siguiente:

Código: Text

Tramite As String
Agregado as Boolean
GridTab2=DBGrid
LstTramites=ListBox
 
 
Tramite = GridTab2.Columns(0).Text
For i = -1 To LstTramites.ListCount    
       If Tramite = LstTramites.Text Then
             Agregado = False    
       Else        
             Agregado = True
       End If
Next i 
 
If Agregado = True Then    
        LstTramites.AddItem TramiteElse    
        MsgBox &#34;El Trámite ya fué agregado&#34;, vbInformation
End 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 &#34;El Trámite ya fué agregado&#34;, 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

SoloCodigo

Autor Tema: No Repetir Items En Un Listbox (Leído 2818 veces)

Javochin

No Repetir Items En Un Listbox

cpmario

Re: No Repetir Items En Un Listbox

Alpha_

Re: No Repetir Items En Un Listbox

Javochin

Re: No Repetir Items En Un Listbox