tsBaseForm::Destroy() IF thisform.ReleaseType = 1 && Form closed from close box thisform.lRetVal = .F. =TABLEREVERT() ENDIF