FoxPro/Visual FoxPro - UUUUGGGEEENNNTEEEEE...........

hola a todos les pido por favor que me ayuden con un control GRIP que he diseñado a traves del comando SQL, es el siguiente

Thisform.refresh
IF !EMPTY(THIS.VALUE)
Thisform.Gr.RecordSource = 'SELECT DON.NO_ACTMT,ALLT(DON.APELL_PATE)+" "+ALLT(DON.APEL.MATER)+" "+ALLT(DON.NOMBRE),DON.FECHA_ACT FROM RG_CIVIL!DON;
WHERE Subs(ALLT(DON.APELL_PATE),1,Len(allt(this.value))) = This.value INTO CURSOR MATRIA'
ELSE
Thisform.Gr.RecordSource = 'SELECT DON.NO_ACTMT,ALLT(DON.APELL_PATE)+" "+ALLT(DON.APEL_MATER)+" "+ALLT(DON.NOMBRE),DON.FECHA_ACT FROM RG_CIVIL!DON ORDER BY DON.NO_ACTMT INTO CURSOR MATRIA'
ENDIF

com puden ver cuando escrivo un caranter le pido que me lo actualice en el CURSOR MATRIA pero este no lo actuliza, este codigo esta colocado en el procesimiento INTERACTIVECHANGE y deveria actuar como tal pero solamente aparece el GRIP en blanco y no actualiza el cursor, desde ya muchas gracias y por favor contesten este llamado ya que el lunes tengo que entregar esta trabajo.

Estimago Ugente:

He tenido el mismo problema, lo he solucionado de la siguiente manera:

Creo un cursor y lo Pongo en el Grid.
CREATE CURSORAYUDA (campo01 C.....)
CursorSetProp("Buffering",5,"CURSORAYUDA")

(Thifsorm.Gr.RecordSource = CURSORAYUDA)

Ahora en el interactivechange primero realizas la consulta y lo envias a una tabla temporal y desde ahi haces un append from hacia el cursor, y luego un Thisform.refresh.
SELECT DON.NO_ACTMT,ALLT(DON.APELL_PATE)+" "+ALLT(DON.APEL.MATER)+" "+ALLT(DON.NOMBRE),DON.FECHA_ACT FROM RG_CIVIL!DON;
WHERE Subs(ALLT(DON.APELL_PATE),1,Len(allt(this.value))) = This.value INTO TABLE TMPTABLE

Sele CURSORAYUDA
=TABLEREVERT(.T.)
append from TMPTABLE
go top
Thisform.refresh

Parece engorroso pero es muy efectivo

Si consigues algo mejor hazmelo saber.

Saludos,

TAMBIEN ESTOY INTERESADO EN ESTA FORMA DE FILTRAR EL RECORDSOURCE DE UN GRID, PORQUE NUNCA ME HA FUNCIONADO Y HE TENIDO QUE HACERLO DE LA FORMA ANTERIOR (A UNA TEMPORAL).

SALUDOS A TODOS.