谢谢  待我研究下

我下载测试，关闭提示出错。是VFP8.0的。

楼上。什么错误？
我是vfp9

小演示：表单集中，各子表的关闭和打开。针对楼主的问题现写的。对于那些初学者应该有用的。
 do form ts 直接执行。楼主可参考。（子表单的关闭看起来是关闭，但不是真关闭，请看看就知道）

这是隐藏，不叫关闭
改成Release吧。
只是关闭了你想打开就要重新打开表单集

fm1 =createobject("form1")
fm1.show(1)
define class form1 as form
   width =500
   height = 480
   autocenter =.t.
   add object lb1  as label with top =200,height=50,width=500,alignment=2,fontsize=36,caption="表单1"
   add object cmd1 as commandButton with top =20,height=35,left=330,width=150,caption="打开表单2"
   add object cmd2 as commandButton with top =56,height=35,left=330,width=150,caption="关闭表单1(包括表单2)"
proc destroy
     if type("fm2")="O"
        release fm2
     endif
proc cmd1.click
     打开表单2()
proc cmd2.click
     if type("fm2")="O"
        release fm2
     endif
     thisform.release
enddefine
*
proc 打开表单2
fm2 =createobject("form2")
fm2.show
read events
define class form2 as form
   width =300
   height = 240
   add object lb1 as label with top =100,height=50,width=300,alignment=2,fontsize=36,caption="表单2"
proc destroy
     clea events
enddefine

从a1打开a2后再从a1关闭a2就出现上图的对话框

运行两个表单后，打开调试器窗口，在“局部”窗口中，可以看到“a1”、“a2”两个对象变量。


我的不出错！

我经常使用PRG加.scx寫成的表单的混合型的小程序。在PRG中打开、运行.scx写成的表单，并且在表单中打开其它表单或者运行某些在PRG中的程序段。在编程和运行中得到一些需要注意的地方。
在.scx寫成的表单中，设置、运行表单内部的控件，使用类似 THIS....  或者 THISFORM....  语句。但是在PRG 中，必须使用类似 表单名.... 语句 。在 .scx写成的表单中，调用其它表单及其控件，也必须使用类似 其它表单名.... 语句 。特别要注意的是，必须在PRG中先把 表单名、其它表单名设置成全局变量，否则会出错。