有没有什么办法可以使用一条代码为多个控件更改其属性或值的
比如说,表单里有20个文本框,分别为text1,text2....text20
用一条代码就可以把其中10个文本框的Enabled属性设置为.F.或.T.,或者用一条代码把他们的value设置为0.00
不用以下方法:

thisform.text1.enabled=.t.
thisform.text2.enabled=.t.
thisform.text3.enabled=.t.
thisform.text4.enabled=.t.
thisform.text1.value=0.00
thisform.text2.value=0.00
thisform.text3.value=0.00
thisform.text4.value=0.00
thisform.text5.value=""
thisform.text6.value=""
thisform.text7.value=""
thisform.text8.value=""

像这样写太麻烦

SetAll 方法，详细 VFP HELP

一条代码达不到楼主的要求
天天吃饭不烦吗，不是还要吃吗

一条代码肯定不行，就楼主的代码，可做部分简化：

WITH THISFORM
    STORE .t. TO .text1.Eenabled,.text2.enabled,.text3.enabled,.text4.enabled
    STORE 0.00 TO .text1.value,.text2.value,.text3.value,.text4.value
    STORE '' TO .text5.value,.text6.value,.text7.value,.text8.value
ENDWITH

一类用一条代码差不多

With ThisForm
    For lnI=1 To 8
        cText="Text"+Transform(lnI)
        .&cText..Value=Iif(lnI<=4,"",0.00)
        .&cText..Enabled=Iif(lnI<=4,.T.,.F.)
    EndFor
EndWith

[ 本帖最后由 sdta 于 2014-6-1 18:42 编辑 ]

樓上的這些方法都有這樣那樣的前提條件，自己必須清楚才行。

這種同一類別的對象，正是面嚮對象編程發揮優勢之處，不知道怎麽會總是想用代碼在運行時賦值的，這説明編程理念還停留在面嚮過程階段。用類繼承，一旦創建該對象實例，屬性已經設定，根本不需要這種額外的初始化動作，是最徹底的解決方案。

[ 本帖最后由 TonyDeng 于 2014-6-2 13:46 编辑 ]

上面那些方法，要麽依賴於變量名，要麽依賴於類型名，但他那程序未必所有TextBox或所有以Text開頭的控件都屬於這批需要賦值的對象，所以其前提條件就是構造變量名時必須滿足這個需要，否則還是要逐個枚舉。就算用SetAll，表單中控件嵌套層次可能有多層，在Form級別的TextBox是這般，但不見得在該Form下面的Container中的TextBox也是這般，SetAll是在Form查找所有屬於TextBox類的對象實例循環賦值，是不會智能篩選的。

容易理解,但是enabled属性更改不了,谢谢,还是给分你