FoxPro/Visual FoxPro - Busqueda Incremental

Hola amigos programadores, quisiera saber si alguien me puede ayudar a ejecutar una busqueda incremental en una tabla, por ejemplo con un combo box ligado a un campo de una tabla, se trata de que cuando uno este escribiendo en el combo box un valor se vayan mostrando los valores que se asemejen a lo que estoy escribiendo, por ejemplo, si escribo GA me ponga el primer registro que empiece con estas letras, se que se puede hacer en Visual Basic pero en Visual Fox Pro no lo he conseguido.
De antemano muy agradecido con ustedes.

Hola, lo puedes hacer con el metodo interactivechange, yo no lo he hecho con un combobox sino con textbox, cada vez que presiono una tecla hago un seek a la tabla y un refresh al grid.

espero que esto te ayude

hola como estas.
aqui tienes un ejemplo.

LOCAL LC, LNRECNO, LCCAMPO

LC= UPPER(ALLTRIM(THIS.VALUE)) &&VAR CON DATOS A BUSCAR
LNRECNO=RECNO() &&POSICION DEL REGISTRO
LCCAMPO="tu_tabla.Tu_campo_donde_buscar"
GRI001="THISFORM.GRID1.COLUMN1.SETFOCUS"
TEX001="THISFORM.TEXT1.SETFOCUS"
IF UPPER(ALLTRIM(&LCCAMPO)) >= LC
IF UPPER(ALLTRIM(&LCCAMPO)) < LC && DEBE QUEDAR DONDE ESTABA
IF LNRECNO <= RECC()
GO RECNO()
ELSE
GO BOTTO
ENDIF
RETURN
ENDIF

IF NOT EMPTY(ORDER()) && BUSQUEDA CON INDICE
SEEK LC
ELSE
GO TOP
LOCATE REST FOR UPPER(ALLTRIM(&LCCAMPO))=LC WHILE UPPER(ALLTRIM(&LCCAMPO)) <= LC NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR UPPER(ALLTRIM(&LCCAMPO))=LC WHILE UPPER(ALLTRIM(&LCCAMPO)) <= LC NOOPTIMIZE
ENDIF
IF LNRECNO # RECNO()
&GRI001
&TEX001
ENDIF
RETURN

ATTE
ROD