Pasar datos a un Combobox sin repetir... - VB-MUNDO

dickensoft · #1 (**permalink**) 13-11-2008, 21:54:34

Tengo un fichero con la estructura:

Código:

 
Public Type Registro
   Titulo As String * 30
   Autor As String * 30
   Discografica As String * 30
   Ano_publi As Integer
End Type
 
Public disco As Registro

El codigo para pasar los registros es

Código:

 
Private Sub Pasar_registros()
   Dim i As Integer
   Seek #1, 1
   For i = 1 To contador_registros
      Get #1, , disco
      If lista = 1 Then
         Combo1.AddItem (disco.Autor), i - 1
 
      Else
         Combo1.AddItem (disco.Discografica), i - 1
      End If
   Next i
End Sub

Me gustaria pasar los "Autores" o las "Discograficas" a un Combobox... pero ¿ existe la forma de que los datos pasados no esten repetidos ? o hay que hacerlo a huevo ?

Muchas gracias

dickensoft · #2 (**permalink**) 13-11-2008, 22:24:23

Bueno despues de probar creo que este codigo funciona, gracias de todos modos a esta grandisima comunidad.

Código:

 
Private Sub Pasar_registros()
   Dim i, n, sw As Integer
   Seek #1, 1
   For i = 1 To contador_registros
      Get #1, , disco
      If lista = 1 Then
         sw = 0
         For n = 0 To Combo1.ListCount - 1 And sw = 0
            If RTrim(disco.Autor) = Combo1.List(n) Then
               sw = 1
            End If
         Next n
         If sw = 0 Then
            Combo1.AddItem (RTrim(disco.Autor))
         End If
      Else
         sw = 0
         For n = 0 To Combo1.ListCount - 1 And sw = 0
            If RTrim(disco.Discografica) = Combo1.List(n) Then
               sw = 1
            End If
         Next n
         If sw = 0 Then
            Combo1.AddItem (RTrim(disco.Discografica))
         End If
      End If
   Next i
End Sub