问 如何在打开一个表单时关闭所有其它表单？
可在表单的LOAD 中调用以下过程
=PTBD("THISFORM.CAPTION")
PTBD.PRG &&内容如下
para formcaption
for i= 1 to _screen.formcount
   if alltrim(_screen.form[i].caption)!=;
      alltrim(formcaption) and alltrim(_screen.form[i].caption)!=;
      "Toolbar1"  &&除本表单及工具栏不关闭，其它都关闭
  _screen.forms[i].release
   endif
endfor
return
百度到了一个方法,,,,可惜小弟试来试去不行,不知道是哪里问题,烦请大师指点一下.如下图..

**form[i].caption
forms[i].caption

吹水佬老师傅,,,您写的2行,,,我实在看不懂,是哪里错了?要改哪里?

把程序里的 form[i].caption
改成 forms[i].caption

我解释一下吹版的意思
不对就拍我吧

不行,,,,,改成 forms[i].caption ,,点击菜单,,直接全部退出软件了

都改了,,,我把Toolbar1 也改为MAIN ,主表单,,,还是不行

什么不行?
先说说你提的第一个错误问题解决了没有

感谢吹水哥回复,,,现在没提示错误,,不过...按了菜单..软件直接全部退出,,,没有实现关闭其他表单(除了主界面和自身)的功能

按论坛上另一个的帖子的代码改改,,又不行,,吐血.........

研究了大半天,,,,各种代码各种问题,,菜鸟伤不起,,
后来百度到一个方法:

在顶层表单中只打开一个表单，可以这样：
比如你是利用菜单打开表单，就在菜单的［提示选项］的［跳过］中输入_screen.formcount>1

土法子,,不过,测试后,OK....