FoxPro/Visual FoxPro - busqueda en grid

hola:

tengo un formulario con un grid y un textbox
en el record source del mismo tengo una tabla de alumnos,la cual ordeno
por apellido en el load del form con este codigo:
----------------------
close data all
set defa to d:prueba
use alumnos excl
sele alumnos
inde on apel tag indape
set order to indape
-------------------------
en el evento interactive change del text que tengo en el form tengo el siguiente
codigo:
------------------
sele alumnos

seek upper(this.value) &los apellidos en la base estan en mayuscula
thisform.grid1.refresh
----------------------------------
lo que quiero lograr es que a medida que voy tipeando letras en el text me vaya
aproximando el cursor al apellido buscado en el grid ,y no lo puedo hacer.necesitaria que por favor alguien me diga donde esta la falla.
desde ya gracias por la ayuda

que tal amigo lo que falta en tu codigo es despues del seek
agregar thisform.grid1.setfocus y despues refrescas

te mando un ej de un form mio en el interactivechange

*--- InteractiveChange ---
LOCAL lc, lnRecno
SELECT Articulo
SET ORDER TO DESARTIC
lc = ALLT(THIS.VALUE)
IF NOT EMPTY(ORDER()) && busqueda con indice
if ISDIGIT(lc)
set order to codart && con esto puede buscar por descripcion o por codigo de articulo
endif
set near on
SEEK lc
ENDIF
THISFORM.grdarticulo.SETFOCUS && el nombre del TextBox
THISFORM.text1.SETFOCUS && el nombre del Grid
RETURN
*--- END InteractiveChange ---

anduvo ok lo que me pasaron!