FoxPro/Visual FoxPro - objetos-grid

   
Vista:

objetos-grid

Publicado por eduardo (139 intervenciones) el 29/08/2008 18:11:47
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:objetos-grid

Publicado por Javier (265 intervenciones) el 29/08/2008 18:38:53
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar