FoxPro/Visual FoxPro - busqueda

hola, lo que quiero es poder ingresar un dato en un text y que me despliegue los datos que se asemejen en un grid y que este se actualice cada vez que me vaya escribiendo en el texto

Ojala puedan ayudarme

En el metodo interactiveChange del text debes colocar algo como:
------
busca_x = ALLTRIM(thisform.text2.value)
XX = len(busca_x)
If !EMPTY(busca_x)
Select * FROM \carpeta1\compraw\comprod Where Substr(comprod.descr1,1,xx) = busca_x Into Cursor TITO
sele TITO
IF !(Eof() .or. bof())
Thisform.list1.ROWSOURCE = 'tito.descr1'
Thisform.list1.refresh()
Endif
Endif
----
con la diferencia que aqui estoy refrescando una LIST
tu deberas adaptarlo para la grid
Que te vaya bien,
TITO