找不到属性caption解决方法

2012-02-25

找不到属性captionapple_8180:你好！为了提高程序的可靠性，我在自己的程序中使用了你在论坛中发表的捕捉错

找不到属性caption
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

热点排行

VFP

找不到属性caption解决方法