Remover Item Repetido Da Combo!

[Angelo Augusto]

Pessoal, bom dia, boa tarde, boa noite!

O seguinte estou querendo saber como faço para remover um item repetido dentro da combobox,

Primeiro eu preencho a combobox com numeros de contratos, mas no meio destes contratos exitem repetidos, e não estou conseguindo fazer isso , remover os items repetido , alguém pode me ajudar com isso !!

For CONTFOR = 0 To CB_NUMERO.ListCount

                If CB_NUMERO.ListCount >= CONTFOR Then
                    
                     If (CB_NUMERO.List(CONTFOR) = ITEMPROC) Then
                        CB_NUMERO.RemoveItem (CONTFOR)
                        CONTFOR = CONTFOR - 1
                    End If
                End If
        Next CONTFOR

1 - dou um loop preenchendo a combo 2 - depois procuro se tem algum item repetido se tiver remover ! MAS NÃO TA DANDO CERTO ! Ai pessoal fiz isto ai mas não ta dando certo ta dandao erro na linha

If (CB_NUMERO.List(CONTFOR) = ITEMPROC) Then

mas não sei porque ?

alguém me ajuda

[Angelo Augusto]

Ai pessoal também tentei assim e não to conseguindo !!! está dando pau no indice (1)

Me ajudem!!!

For CONT2 = 3 To NUMLINHA
        
        If CB_NOME.Value = .Cells(CONT2, 1).Text Then
          
          ITEMPROC = .Cells(CONT2, 2).Text
          
          For CONTFOR = 1 To CB_NUMERO.ListCount
              If (CB_NUMERO.List(CONTFOR) = ITEMPROC) Then
                 jaExiste = True
              End If
          Next CONTFOR
          
          If (CB_NUMERO.ListCount = 0) Then
            CB_NUMERO.AddItem ITEMPROC
          End If
                      
          If (jaExiste) Then
            CB_NUMERO.AddItem ITEMPROC
            NOTA = CInt(.Cells(CONT2, 76).Text)
            SOMA = SOMA + NOTA
            CONTMEDIA = CONTMEDIA + 1
            MEDIA = (SOMA / CONTMEDIA)
          End If
                    
          jaExiste = False
        End If
        
    Next CONT2

[Angelo Augusto]

CONY=TO COM A AJUDA DE TODOS você'S! JÁ FAZEM TRES DIAS que ESTOU TENTANDO ISSO

[kuroi]

é so fazer um for dentro do outro. assim:

Dim i As Integer, j As Integer
    For i = 0 To Combo1.ListCount
        For j = i + 1 To Combo1.ListCount
            If Combo1.List(i) = Combo1.List(j) Then
                Combo1.RemoveItem (j)
                j = j - 1
            End If
        Next
    Next[/code]

[Angelo Augusto]

pessoal , masi um resolvido !!!

Agradecimentos a Kuroi!!!

vou postar quem sabe algume precise do codigo:

For CONT2 = 3 To NUMLINHA
        
        If CB_NOME.Value = .Cells(CONT2, 1).Text Then
         ITEMPROC = .Cells(CONT2, 2).Text
         existe = False
            For CONTFOR = CONT2 + 1 To NUMLINHA
                If (ITEMPROC = .Cells(CONTFOR, 2).Text) Then
                    existe = True
                End If
            Next CONTFOR
            
            If Not (existe) Then
                CB_NUMERO.AddItem ITEMPROC
                
            End If
           next CONT2

Editado Julho 5, 2007 por Angelo Augusto