ABRIR Y CERRAR TABLAS/FORMULARIOS
Publicado por JAMES (50 intervenciones) el 11/06/2003 22:40:57
HOLA TRABAJO CON VARIOS FORMULARIOS EN CORDINACION CUANDO TRABAJO UNO A UNO NO HAY NINGUN PROBLEMA EL PROBLEMA ES QUE UTILIZO GRID EN CADA UNO DE ESOS FORMULARIOS TAMBIEN OCUPO EL BOTON ELIMINAR DONDE UTILIZO LA INSTRUCCION PACK BUENO EL PROBLEMA ES QUE CUANDO CIERRO UN FORMULARIO ATRAVEZ DEL BOTON SALIR APLICO LO SIGUIENTE:
PACK
CLOSE TABLES ALL
RELEASE THISFORM
Y CUANDO ENTRO A OTRO FORMULARIO:
SELECT PUESTOS
SET DELETE ON
THISFORM.GridPuestos.SetAll("Resizable", .F., "Column")
PACK
THISFORM.GRIDPUESTOS.Setfocus
THISFORM.GRIDPUESTOS.Refresh
GO BOTTOM
THISFORM.Refresh
EL PROBLEMA QUE ESTOY TENIENDO ES QUE SE BLANQUEAN LOS GRID AL CAMBIARME DE UN FORMULARIO AL OTRO Y TAMBIEN QUE SE CIERRAN TODAS LAS TABLAS ORIGINANDOME PROBLEMAS DE AREA DE TRABAJOS COMO PUEDO HACER PARA INCLUIR EN CADA FORMULARIO EL PACK PARA QUE ELIMINE TODOS LOS REGISTRO MARCADOS Y QUE CIERRE NADAMAS LA TABLA DEL FORMULARIO QUE CORRESPONDA SIN INTERFERIR EN LOS DEMAS FORMULARIOS Y SUS RESPECTIVAS TABLAS
PACK
CLOSE TABLES ALL
RELEASE THISFORM
Y CUANDO ENTRO A OTRO FORMULARIO:
SELECT PUESTOS
SET DELETE ON
THISFORM.GridPuestos.SetAll("Resizable", .F., "Column")
PACK
THISFORM.GRIDPUESTOS.Setfocus
THISFORM.GRIDPUESTOS.Refresh
GO BOTTOM
THISFORM.Refresh
EL PROBLEMA QUE ESTOY TENIENDO ES QUE SE BLANQUEAN LOS GRID AL CAMBIARME DE UN FORMULARIO AL OTRO Y TAMBIEN QUE SE CIERRAN TODAS LAS TABLAS ORIGINANDOME PROBLEMAS DE AREA DE TRABAJOS COMO PUEDO HACER PARA INCLUIR EN CADA FORMULARIO EL PACK PARA QUE ELIMINE TODOS LOS REGISTRO MARCADOS Y QUE CIERRE NADAMAS LA TABLA DEL FORMULARIO QUE CORRESPONDA SIN INTERFERIR EN LOS DEMAS FORMULARIOS Y SUS RESPECTIVAS TABLAS
Valora esta pregunta


0