主题:控件名循环的问题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
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