FoxPro/Visual FoxPro - CERRAR TABLAS Y ABRIR FORMULARIOS

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

Amigo NO UTILICES PACK es dañino para la salud de VFP ;-), cuando haces PACK lo que ocurre en realidad es que vfp copia en un temporal todos tus registros "no marcados" borra tu tabla y renombra el temporal con el de tu tabla ;-) por eso se cierra tu tabla y las relacionadas de paso quedan en el aire, aparte vas hacer tu programa mas lento ya que con 100 o 200 registros no te das cuenta pero con 100,000???? lo que te recomiendo es que hagas un modulo aparte el cual te haga pack a tus tablas cuando el usuario lo indique, para ello lo instruyes para que realice este proceso cada tres meses y cuando nadie este trabajando con el sistema ya que para hacer pack tu tabla tiene que estar abierto como exclusivo

salu2