回 帖 发 新 帖 刷新版面

主题:控件名循环的问题label&i.

thisform.container1.label&j..Caption =tdc
thisform.container1.label&j..visible=.t.

以上代码提示语法错误

_______________________________

_______________________________

j=ALLTRIM(RIGHT(ALLTRIM(STR(i)),2))
g=ROUND(tj_xsl/100*468,0)
thisform.shape&j..height=g
thisform.shape&j..top=600-g
thisform.shape&j..visible=.t.
thisform.text&j..value=ALLTRIM(STR(tj_xsl))
thisform.text&j..top=577-g
thisform.text&j..visible=.t.
这部分代码运行成功,是何道理,求助大家!


[b]____________________________________________________________________________________[/b]


更详细错误代码如下:
SELECT ssjl
t=RECCOUNT()
IF t>0
FOR i=1 TO 6
IF i<=t
GO i
tdc=LEFT(ALLTRIM(ddc),36)
j=i
[color=FF0000]thisform.container1.label&j..Caption =tdc
thisform.container1.label&j..visible=.t.[/color]
ENDIF
ENDFOR
ELSE
thisform.container1.label1.Caption="没有找到"
ENDIF

回复列表 (共4个回复)

沙发

j=ALLTRIM(STR(I))
thisform.container1.label&j..Caption =tdc
thisform.container1.label&j..visible=.t.

板凳

谢了

3 楼

页面上有许多不同的控件不但只是TEXTBOX比如还多了个label那么我现在想循环给他们循环赋值

4 楼

用Label不能实再你的要求吧?

我来回复

您尚未登录,请登录后再回复。点此登录或注册