FoxPro/Visual FoxPro - objetos-grid

hola:

tengo este programa ,el cual en la linea del evento afterrow me da el error que no se encuentra la instruccion paar meter (es la linea que hace referencia al text1).
necesitaria saber la falla .gracias

CLOSE DATA ALL
SET DEFA TO E:PRUEBA
SET CLASSLIB TO CLASSGRILLA ADDITIVE
PUBLIC oForm
oForm = NEWOBJECT("MiForm")
oForm.AddObject("grilla","grid2")
oForm.addObject("text1","textbox")
oForm.text1.visible=.T.
oForm.grilla.left=50
oForm.grilla.top=50
oForm.grilla.visible=.t.
oform.grilla.recordsource="alumnos"
oform.grilla.recordsourcetype=1


oForm.SHOW

define class grid2 as grid
procedure afterrowcolchange

thisform.text1.value=alumnos.apel //en esta linea da el error
thisform.refresh
enddefine

DEFINE CLASS MiForm AS FORM
TOP = 0
LEFT = 0
DOCREATE = .T.
CAPTION = "Ejemplo de formulario vacio "
WINDOWSTATE = 0
NAME = "Form1"
WIDTH = 640
HEIGHT = 300
procedure load
set defa to e:prueba
set dele on
use ALUMNOS in 0
sele ALUMNOS
this.refresh
endproc

ENDDEFINE

La primera línea del procedure afterrowcolchange, debe ser:

LPARAMETERS nColIndex

Crea un grid en un form (con el diseñador de forms) y fijate en la ventana de propiedades del evento afterrowcolchange

Saludos.