不是一个对象
基本情况:主程序‘口令’表单,主菜单设置在顶层表单中。
口令表单中的代码:
public myform
do form 东岭财务核算系统1.scx name myform
主菜单退出的代码:
myform.release
问题:当主菜单尚未退出时,再次打开主菜单后,逐一退出各个主菜单,出现错误提示:‘myform不是一个对象’请教各位高手,应该如何解决。谢谢!
[解决办法]
如果是退出程序,直接
Clear Events
[解决办法]
CLOSE table all
SET esca on
SET defa to (lc_defpath)
上面三行代码放在主程序中。
DO 主菜单.mpr with this,.t &&最好放在INIT EVENTS中
[解决办法]
把
myform.release
改成
clear events
quit
就没这么多麻烦了