FoxPro/Visual FoxPro - objetos

 
Vista:
sin imagen de perfil

objetos

Publicado por marcelo (139 intervenciones) el 09/08/2011 15:02:51
tengo este codigo ,el cual me genera un objeto form
con una grilla :

CLOSE DATA ALL

SET DEFA TO d:\PRUEBA
SET CLASSLIB TO CLASSGRILLA ADDITIVE
PUBLIC oForm
oForm = NEWOBJECT("MiForm")

oForm.SHOW
READ EVENTS

RELEASE oform

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
PROCEDURE unload
CLOSE TABLES all
RELEASE ALL
ENDPROC

ADD OBJECT GRID1 AS classgrilla with;
columncount=3,;
recordsourcetype=0,;
recordsource="ALUMNOS.dbf"
ENDDEFINE

al ejecutar el coddigo ,me muestra bien el form ,el grid y los datos .

el tema es que ,cuando cierro el form ,luego no puedo salir de vfox
(lo estoy probando por l de comandos ) ,me sale un mensaje que dice "no se puede salir de v fox "
me esta faltando algun release o close data ??
desde ya gracias
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

objetos

Publicado por xx (378 intervenciones) el 09/08/2011 19:47:31
Te falta el CLEAR EVENTS en el metodo RELEASE o cualquier otro que se lance al borrar el formulario

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