eliminar registros repetidos en combo

[azazel_xes]

alguien podria decirme como eliminar registros repetidos en un combobox, tengo la idea pero no se las intrucciones para posicionarme en una linea comparar contra la que se busca para borrar y posteriormente moverme a la siguiente linea
ejemplo

*¨datos del combo
caso
casa
perro
casa

como hago para posicionarme en caso y hacer que mi busqueda recorra toda la lista hasta el final y si encuentra una linea repetida dos o más veces se vaya borrando

la verdad se los agradeceria que ya tengo rato en esto y de lo mismo no salgo

[claudiovega]

como llenas el combo, de forma manual en el codigo o con los datos de una tabla?

[lic_dahool]

Fácil, usas por ej.

Combo1.List(Indice) ' TE DEVUELVE EL DATO QUE TIENE EL COMBO EN ESA POSICION
Combo1.RemoveItem(Indice) 'ELIMINA EL INDICE SELECCIONADO

Recordá que los los indices de un combo van desde 0 a .ListCount-1

Saludos.

[azazel_xes]

lo lleno automaticamente en tiempo de ejecución con los valores de un campo de una tabla en una base de datos

[Mickel]

algo esta mal en la forma en la que has definido el query para poblar tu combo desde la bd entonces. Cual es tu sentencia SQL?

[azazel_xes]

este es el codigo que uso para llenarlo

'*CICLO PÀRA MOSTRAR LA INFO DE LOS ABONOS EN EL COMBO BOX
Do While (x < 1)

Form3.Data3.Recordset.MoveFirst
Do While (Not Form3.Data3.Recordset.EOF)
If (Form3.Data3.Recordset.Fields("usuario").Value = usuario) Then
productoinfo = (Form3.Data3.Recordset.Fields("concepto").Value)
If (productoinfo = productobuscado) Then
Form3.Data3.Recordset.MoveNext

Else
Form3.Combo5.AddItem (CStr(Form3.Data3.Recordset.Fields("concepto").Val ue))
total_abonos = total_abonos + 1
Form3.Data3.Recordset.MoveNext
End If
productobuscado = productoinfo
Else
Form3.Data3.Recordset.MoveNext
End If
Loop
x = x + 1

[fenoy]

mmmmmmmmmmm

Si el recorset lo llenas con una sentencia SQL, prueba a poner la clausula distinc

Ejemplo:
Select nombre from tabla1
Ana
Juan
Ana

Select Distinc nombre from tabla1
Ana
Juan