Llenar un combobox con datos seleccionados de un listbox

Tengo un formulario con 5 combobox y me filtra bien la información, solo quiero mejorarlo llenando con el listbox obtenido de el filtro uno de los combobox,

Ya lo logre solo añadiendo

Estacion. AddItem ListBox1.List(a, 1)

Llena este combobox estación con los datos solo que me manda todos y hay duplicados, alguien me puede ayudar con el código para que solo me mande

Valores unicos

1 Respuesta

Respuesta
2

Te anexo el código

    For i = 0 To ListBox1.ListCount - 1
        dato = ListBox1.List(i, 1)
        existe = False
        For j = 0 To Estacion.ListCount - 1
            If Estacion.List(j) = dato Then
                existe = True
                Exit For
            End If
        Next
        If existe = False Then
            Estacion.AddItem dato
        End If
    Next

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

¡Gracias! Muchísimas gracias como siempre Dante con las respuestas apropiadas, para cada pregunta que te hacen.

funciono a la primera!!!!!!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas