我想把在表中查到的多个值赋给表单中的label的caption,看看我的这种方法
a="thisform.label"+&i+".caption"
for i=1 to 9
a=bb.xs
endfor


bb.xs为查到的值
但用后没效果.
问问大家有什么方法,谢谢

还有个相似的问题
由于表单内有很多标签(label)和文本框(text)
现在想用循环语句实现赋值
比如(不对的做法):
for i=1 to 15
thisform.label&i.visible=.F.
thisform.text&i.visible=.F.
endfor

问问这种问题如何实现?

哈哈,试了好几次,终于成功了.
方法是:
for i=1 to 15
j=alltrim(str(i))
l1="thisform.label"+j+".visible=.F."
l2="thisform.text"+j+".visible=.F."
&l1
&l2
endfor

是啊，整句宏替换才保险。2楼的代码中i是数值型变量，即使用alltri(str(i))转换成字符型，还是会与其后的“.”号冲突，因为“.”是宏替换默认的结束符号。我曾试过连用两个“.”号也不行。用整句进行宏替换最保险。

hu9jj:用两个句号(.)是可以实现的。另外，针对2楼的问题，这里有一个代码片段可以一试。
FOR lnCnt=1 TO ThisForm.ControlCount
IF ThisForm.Controls(lnCnt).BaseClass='Label' OR ThisForm.Controls(lnCnt).BaseClass='Textbox'
ThisForm.Controls(lnCnt).Visible=.F.
ENDIF
ENDFOR

哦,谢谢