
clase basada en clase form
Publicado por eduardo (139 intervenciones) el 27/01/2010 15:14:00
hola:
Tengo una clase con un formulario
y un grid y un boton salir basada en la clase nativa form
en esta clase cree un metodo que se llama asigna ,el cual tiene el siguiente codigo:
lparameters alias1
use (alias1) in 0
sele (alias1)
brow (este brow lo puse para asegurarme que la tabla que paso como parametro se vea,y en este punto veo los datos)
thisform.grid1.recordsource=(alias1)
thisform.grid1.recordsourcetype=1
thisform.grid1.refresh
thisform.refresh
El prg desde donde instancio la clase tiene este codigo :
close data all
set classlib to formu.vcx additive
public oform
oform=createobject("formu")
oform.asigna("alumnos.dbf")
oform.show
read events
al ejecutar el programa no me da error de ejecucion
pero en vez de mostrarme el grid con la tabla ,me muestra un cuadro en blanco
sobre el form .probe de poner en la propiedad recordsource del grid
alias1 ,(alias1) ,pero no me despliega los datos.
solicito ayuda por favor .gracias
Tengo una clase con un formulario
y un grid y un boton salir basada en la clase nativa form
en esta clase cree un metodo que se llama asigna ,el cual tiene el siguiente codigo:
lparameters alias1
use (alias1) in 0
sele (alias1)
brow (este brow lo puse para asegurarme que la tabla que paso como parametro se vea,y en este punto veo los datos)
thisform.grid1.recordsource=(alias1)
thisform.grid1.recordsourcetype=1
thisform.grid1.refresh
thisform.refresh
El prg desde donde instancio la clase tiene este codigo :
close data all
set classlib to formu.vcx additive
public oform
oform=createobject("formu")
oform.asigna("alumnos.dbf")
oform.show
read events
al ejecutar el programa no me da error de ejecucion
pero en vez de mostrarme el grid con la tabla ,me muestra un cuadro en blanco
sobre el form .probe de poner en la propiedad recordsource del grid
alias1 ,(alias1) ,pero no me despliega los datos.
solicito ayuda por favor .gracias
Valora esta pregunta


0