VFP 愛用者社區

藍薰 · 註冊時間: 2004-01-15 文章: 65 第 1 樓

請問各位大大:

舉例來說，有五個文字物件 text1,text2,text3,text4,text5，分別取名為
txtNO1,txtNO2,txtNO3,txtNO4,txtNO5

我本欲用迴圈塞值進去
FOR I=1 TO 5
　　nNO='A'+STR(I)

　　ThisForm.txtNO[I].VALUE=nNO
ENDFOR

但出現「屬性 txtNO 沒找到」，不知是否有何種指令可套用如上的程式碼，謝大..

DennisTsai · 註冊時間: 2005-07-26 文章: 178 第 2 樓

ThisForm.&txtNO[I]..VALUE=nNO

tettp · 註冊時間: 2008-11-06 文章: 6 第 3 樓

FOR I=1 TO 5
J=STR(I,1)
nNO='A'+ J
thisform.txtno&J..Value=nNO
ENDFOR

藍薰 · 註冊時間: 2004-01-15 文章: 65 第 4 樓

謝謝 DennisTsai 及 tettp 兩位大大熱情提供
試了之後 tettp 大大的程式碼有成功
但 DennisTsai 大大出現「無效的命令動詞」
原以為要像tettp 大大一樣先轉成字元
但還是一樣的錯誤訊息

syntech · 發表於: 星期一三月 28, 2011 4:26 pm 文章主題:

FOR I=1 TO 5
J=STR(I,1)
nNO='A'+ J
CSTR = "thisform.txtno"+alltrim(J)+".Value=nNO "
&CSTR
ENDFOR

syntech · 發表於: 星期一三月 28, 2011 4:27 pm 文章主題:

加加減減,應該可以找出幾十種方法吧. XD

藍薰 · 註冊時間: 2004-01-15 文章: 65 第 7 樓

看來 "&" 放得位置很重要

謝謝 syntech 大..

syntech · 發表於: 星期一三月 28, 2011 5:12 pm 文章主題:

我這種"無腦"方法,會導致執行效能變差.
而且DEBUG要小心,
因為只會在RUNTIME出現錯誤,DESIGN TIME通常不會出錯.

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 9 樓

如果只有五個的話
我倒認為，一行一行定義還比較省事，程式碼反而短些，
執行效能也比較好～
With thisform
　.txtNO1.VALUE=1
　.txtNO2.VALUE=2
　.txtNO3.VALUE=3
　.txtNO4.VALUE=4
　.txtNO5.VALUE=5
endwith