欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

removeobject疏失

更新时间: 2014-01-05 02:28:07 责任编辑: Author_N1

 

removeOBJECT出错
表单的init代码如下:
*以下代码在表单上生成控件
SET SAFETY OFF 
r=SQLEXEC(lnConnHandle,"SELECT * FROM [ip].[dbo].[信息join员工]","信息")
i=1
SELECT 信息
GO TOP
DO WHILE .NOT. EOF()
o="XinXi"+ALLTRIM(STR(i))
THISFORM.ADDOBJECT(o,'PostBrief')
THISFORM.&o .TOP=(i-1)*95
THISFORM.&o .LEFT=5
THISFORM.&o .VISIBLE=.T.
THISFORM.&o .BiaoTi.Caption=ALLTRIM(信息.标题)
THISFORM.&o .Fabuzhe.Caption=ALLTRIM(信息.发布者)
THISFORM.&o .Fabushijian.Caption=TTOC(信息.发布时间)
THISFORM.&o .编号=编号
=Strtofile(Strconv(信息.照片,14),ALLTRIM(信息.发布者)+".bmp")&& 将字符还原base64编码前数据,还原成文件
THISFORM.&o .Image1.Picture=ALLTRIM(信息.发布者)+".bmp"&& 将还原后的图片覆给Image控件的的Picture属性
i=i+1
SKIP
ENDDO
SELECT 信息
USE
thisform.Refresh 
RETURN 
执行表单后,表单上正常地显示出两个控件

表单的Click事件中代码如下:
FOR i=1 to thisform.ControlCount
THISFORM.removeOBJECT(thisform.Controls(i).Name,'PostBrief')
NEXT 
RETURN 
表单上控出现后,单击表单执行以上代码出错,出错时i=2,错误信息如下:
Controls不是一个对象.

高手们,怎么改?
--参考方法--
RemoveObject 语法没有第2个参数
运行时从容器对象中移去一个指定的对象。
Object.RemoveObject(cObjectName)
 
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:28:07
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10200/
本文WWW.DOC100.NET DOC100.NET版权所有。