FoxPro/Visual FoxPro - buscar en un form Enriq,hect

quiero q busq un apellido y yo colocar una tecla y se posicione lo mas cerca posible
&&primera prueba

go top
a=""
Select alumnos
a=thisform.pageframe1.page1.text11.value
set compatible off
SCAN FOR LIKEc('a*', alumnos.apellidoynombre)
thisform.pageframe1.page1.text1.value=alumnos.apellidoynombre

ENDSCAN
no me marca error pero no me muestra nada, la variable a es igual a un text y quiero q me los devuelva a otros text
&&segunda prueba
Select alumnos
a=thisform.pageframe1.page1.text11.value
set order to 1 && por apellido
seek a
*set near on
set exact off
*if found()

*thisform.pageframe1.page1.text1.value=alumnos.apellidoynombre
*thisform.pageframe1.page1.text2.value=alumnos.documento
*thisform.pageframe1.page1.text3.value=alumnos.fechanac
endif
lo mismo no me marca error pero no hace nada, yo quiero q me los muestre en otros text cuando encuetre un reg proximo.
desde ya gracias hector y enriq por molestarse

pone al final THISFORM.REFRESH.

Otra cosa veo en el segundo ejemplo que tenes al principio de algunas lineas un * (asterisco), si es asi esas líneas no se ejecutaran porque el asterisco al principio de una línea se utiliza como comentario.

Ya intentaste con "Locate For" ejemplo:

Select Alumnos
go top
Locate For alltrim(nombre)=alltrim(Thisform.txtnombre.value)
If Found() then
thisform.pageframe1.page1.text1.value=alumnos.apellidoynombre
thisform.pageframe1.page1.text2.value=alumnos.documento
thisform.pageframe1.page1.text3.value=alumnos.fechanac
else
Wait Window "No se Encontró este nombre" Timeout .8
endif

**Suerte►