以下是引用vfp60菜鸟在2017-2-27 08:27:25的发言：

菜单过程里添加如下
IF  _SCREEN.FORMCOUNT>0
    MESSAGEBOX('请先退出当前表单界面！',64,'提示')
ELSE
    WAIT WINDOW('正在搜集資料,请稍候 . . .    ') NOCLEA NOWAIT
    DO FORM gysqhx.scx
    WAIT CLEA
ENDIF