FoxPro/Visual FoxPro - ComboBox-Matriz-Elementos

GRACIAS A TODOS LOS QUE ME AYUDARON CON EL COMBOBOX, ME FUERON DE MUCHA UTILIDAD.

EL NUEVO PROBLEMA ES QUE TENGO UNA COMBOBOX QUE TRABAJA CON UNA MATRIZ. LO QUE YO QUIERO HACER ES A LA INVERSA DE SELECCIONAR EN UN COMBO UNA OPCION O ELEMENTO.

YO QUIERO DESDE UN CUADRO DE TEXTO INGRESAR UN VALOR Y QUE EN EL COMBO SE PONGA AUTOMATICAMENTE EL ELEMENTO U OPCION QUE ELEJI DESDE EL CUADRO DE TEXTO:

CUADRO DE TEXTO COMBOBOX CON MATRIZ
_________________ __________________
________ _________________
CODIGO: !________ ! !_________________! <- 01-Factura
01 02-Remito
02 03-Recibo
Etc. Etc.

Tal vez esto te sirve... pon este codigo en el event LOSTFOCUS del textbox:

LOCAL nFila
nFila=ASCAN(MiArregloCombo,val(THIS.VALUE))

IF nFila>0
THISFORM.combo1.LISTINDEX=nFila
THISFORM.combo1.REFRESH
ENDIF

Ojo, este ejemplo solo funciona con un arreglo UNIDIMENSIONAL NUMERICO, por eso uso la funcion VAL (), si quieres que el combo cambie a medida que escribes puedes poner un codigo similar en el evento keypress del textbox

Muchas gracias por tu atención.

Voy a probarlo. Se asemeja a lo que estaba haciendo. Faltaba el ListIndex.

GRACIAS AMIGO DE NUEVO.

YA LO PROBE Y NO FUNCIONO, PERO TE ENVIO EL CODIGO PARA QUE LO PRUEBES Y VEAS LO QUE HACE:

LOCAL nFila
* nFila = ASCAN(mComp,val(THISFORM.TIPCOM_COM1.VALUE))
nFila = val(THISFORM.TIPCOM_COM1.VALUE)

IF nFila > 0
THISFORM.combo1.LISTINDEX = nFila
THISFORM.combo1.REFRESH
ENDIF

PRUEBALO Y VERAS LO QUE YO QUERIA HACER, TAL VEZ TE SIRVA TAMBIEN..

EN EL COMBOBOX PONGO:
ROWSOURCE TYPE 5

LA MATRIZ TIENE ESTOS ELEMENTOS:
01-PRESUPUESTO
02-REMITO
03-FACTURA
ETC.

LO QUE YO QUERIA HACER ES QUE ADEMAS DE ELEGIR CON EL MOUSE EN EL COMBO LA OPCION DESEADA ES QUE TAMBIEN LO PUEDA HACER MEDIANTE UN TEXTBOX, PARA PERMITIR LA SELECCION MEDIANTE TECLADO, YA QUE YO Y MUCHAS OTRAS PERSONAS PREFIEREN TRABAJAR CON ESTE QUE ES MAS RAPTIDO.

GRACIAS.

Ok, tal vez no te funciono por que yo trabaje con un arreglo unidimensional y me parece que el tuyo es de 2 dimensiones por lo tanto el ASCAN ya no funciona igual.

Hay varias clases que hacen lo que tu quieres sin usar un textbox, lo podrias hacer perfectamente dentro del combo, es muy probable que encuentras esas clases en portalfox. Por lo momentos no estoy usando pcs, asi que hasta en la noche podria probar codigo, ahorita para mi son las 9.44 de la mañana.

Saludos

OK.

GRACIAS POR LEER MI MENSAJE.

MI PROBLEMA ES QUE YO HACE 3 AÑOS QUE ESTABA SIN TRABAJAR, POR UN ESTADO DEPRESIVO QUE PASE, PERO AHORA, HACE UN PAR DE SEMANAS RETOME MIS SITEMAS CON VISUAL 6.0 Y ESTOY FUERA DE PRACTICA Y CON MUCHAS COSAS NUEVAS QUE ME TRABAN.
ESTOY EN LA LUCHA DE NUEVO, Y EN ESTO QUE AMO, QUE ES LA PROGRAMACION Y MI MEDIO DE VIDA.

GRACIAS DE NUEVO.

A TUS ORDENES.