VFP 愛用者社區

john59 · 註冊時間: 2004-02-29 文章: 51 來自: taiwan 第 1 樓

如果要將Grid內的某欄位,例如"匯率"其內定ENABLED為 .F. 等條件成立時才變成.T. 開放供使用者修改,請問要如何處理,請各位先進不吝賜教感謝!

Patrick Wu · 發表於: 星期一五月 26, 2014 12:57 pm 文章主題:

IF 匯率 >= 30.3
THISFORM.匯率.ENABLED = .T.
ENDIF

john59 · 發表於: 星期一五月 26, 2014 1:27 pm 文章主題:

Patrick Wu 您好

小弟就是用您說的方式去作的,結果出現'無效xx成員'錯誤訊息
Grid內有兩個不同DBF,也指定了XXdbf.訂單編號,但是怎麼試都不行
請教這是哪裡出問題?
小弟用的是 vfp 6.0 中文版感謝

syntech · 發表於: 星期一五月 26, 2014 1:56 pm 文章主題:

在你條件成立的事件中,加上
thisfrom.grid1.column1.text1.enabled = .f.

如果你的條件很簡單.
可以在grid.init 事件或是form.init 事件中加上

thisfrom.grid1.column1.text1.enabled = iif(條件,.T.,.F.)

或是直接打在thisfrom.grid1.column1.text1 的屬性欄中

john59 · 發表於: 星期一五月 26, 2014 2:24 pm 文章主題:

感謝 syntech 大大

果然用 columnx 就能接受,不能用欄位名稱,有時就是為了這小眉角,抓破頭皮
問題解決了,感謝指教!

syntech · 發表於: 星期一五月 26, 2014 4:42 pm 文章主題:

視覺化物件的階層關係與資料處理的階層關係是不一樣的.

你也可這樣做:

------------------------
With thisform.grid1
　　FOR I=1 TO .ColumnCount
　　　　IF UPPER(.COLUMNS[I].ControlSource) =="TABLE1.匯率"
　　　　　　　IF 條件 = .t.
　　　　　　　　　.COLUMNS[I].Text1.Enabled = .t.
　　　　　　　ELSE
　　　　　　　　　.COLUMNS[I].Text1.Enabled = .f.
　　　　　　　ENDIF
　　　　ENDIF
　　NEXT
Endwith

------------------------

只是這種方式通常是一次處理好幾個欄位的情況.

john59 · 發表於: 星期三五月 28, 2014 9:45 am 文章主題:

再次感謝 syntech 大大賜教

foxy · 發表於: 星期五六月 13, 2014 4:31 am 文章主題:

或者也可以在text1的 gotfocus 加上 this.parent.readonly=(條件是否成立)
readonly 不能更改但還可以用 ctrl+c 複製匯率, ENABLED=.F. 就不能複製了