注册 登录
编程论坛 VFP论坛

求助:用命令在text控件内显示字符串,有没有使用变量的简便方法

luandening 发布于 2018-12-08 14:52, 1366 次点击
表单中一共有40个text控件。分别为text1,text2,。。。。直到text40
打算使用for...endfor命令
for n=1 to 40
...
...
thisform.text[n].value=a(n)   &&将数组内的数据在text控件内显示出来。
..
endfor
按照这个格式写,有错误提未。‘找不到属性text’
不知道这种情况下正确的写法是怎么样的,请教高手。


在网上查到过类似的写法:
thisformset.form1.Grid1.columns[2].controlsource='xxx.xxx'
thisformset.form1.Grid1.columns[n].width=200
thisformset.form1.Grid1.columns[n].header1.caption="xxxxxxx"
如果当n 等于2的时候。
上面的代码下面的一样。
thisformset.form1.Grid1.column2.controlsource='xxx.xxx'
thisformset.form1.Grid1.column2.width=200
thisformset.form1.Grid1.column2.header1.caption="xxxxxxx"
别的都没变,只是column2和columns[2]差了一个字母‘s' 。
我自己试了一下,把text加一个s,写成texts[],也是不好使。
正确写法请教一下。十分感谢了。
4 回复
#2
星光悠蓝2018-12-08 15:32
thisform.text[n].value改成宏替换的方法
thisform.text&n..value
n应转换为字符型
#3
sdta2018-12-08 16:57
for n =1 to 40
    oText = "text" + TRANSFORM(n)
    thisform.&oText..Value = a[n]
endfor

[此贴子已经被作者于2018-12-8 16:59编辑过]

#4
luandening2018-12-09 11:23
回复 2楼 星光悠蓝
十分感谢,可以了。
#5
luandening2018-12-09 11:24
回复 3楼 sdta
十分感谢,已经实现了。
1