apple_8180:你好！为了提高程序的可靠性，我在自己的程序中使用了你在论坛中发表的捕捉错误程序。（你于2009-02-20 发表的MyFunction.PRG）当我运行程序点击表单中的text1时，出现错误提示框“找不到属性caption”。
我的程序大致情况：
1、通过主程序调设置在顶层表单的主菜单，通过主菜单的下拉菜单，调“增加科目”表单。
2、“增加科目”表单的caption为form1。
3、程序终止时记录为form1.text.click。其内容如下：
set exact off &&非完全匹配
if used('&km') &&如果表已打开
sele &km &&选择表所在的工作区
else
use d:&km order tag 1 in 0 share &&共享方式
endif
4、MyFunction.PRG停在：\控制标题：<<_SCREEN.ACTIVEFORM.ACTIVECONTROL.CAPTION>>语句
说明：在程序外单独运行“增加科目”表单时，运行正常。请指教。谢谢！
------解决方案--------------------------------------------------------
注释掉 MyFunction.PRG 中以下代码
- SQL code
If Type('_SCREEN.ACTIVEFORM.ACTIVECONTROL')='O' \活动控制：<<_SCREEN.ACTIVEFORM.ACTIVECONTROL.NAME>> If Type('_SCREEN.ACTIVEFORM.ACTIVECONTROL.NAME')='C' \控制标题：<<_SCREEN.ACTIVEFORM.ACTIVECONTROL.CAPTION>> Endif \控件基类：<<_SCREEN.ActiveForm.ACTIVECONTROL.BASECLASS>> \控件派生：<<_SCREEN.ActiveForm.ACTIVECONTROL.CLASS>> \控件派生库：<<_SCREEN.ActiveForm.ACTIVECONTROL.CLASSLIBRARY>> \控件位置：<<SYS(1271,_SCREEN.ActiveForm.ACTIVECONTROL)>> Else \无活动控制 Endif