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)
