VFP 愛用者社區

[張榮豐]

大家好:

我是新手, 懇請往後大家多指教!

但第一上網便想向各位高手請教一個問題:


當作業畫面出現時, 游標便停在第一個欄位, 移動時( 初始值為空白 ) , 設定出現"訊息視窗"+"該欄位不能為空白" 後, 如何讓游標仍停在第一個欄位?






張榮豐求救

[小賴]

請教使用之物件 ?
TextBox OR Grid ....
如為TextBox一般於Valid事件RETURN .F.可確保不會LostFocus

TextBox.Valid

IF EMPTY(This.Value)
MESSAGEBOX("該欄位不能為空白", 16, "訊息視窗")
RETURN .F.
ENDIF

[區榮熾]

既然移動了,怎麼還要停在原欄位呢? (因你開始時就在第一欄位,移動後仍要游標停在第一欄位,這樣程式怎樣進行下去?? ..... 不清楚你的目的

[bin1x]

retu 0

[jifflin]

使用了小賴前輩的作法後,一定要輸入字才可離開該欄位

那如果要按"結束"的按鍵時它會一樣警告不可為空白

有辦法可以查驗該欄位是否空白或可以按離開鍵關閉表單的方法

請指教...謝謝.....

ps.欄位如果是會員編號,可能放棄新增想去操作別的表單功能,此時它一樣會提出警告"此欄位是空白",可以做到按結束鍵就關閉本表單嗎?

[小賴]

改成下式; 可否接受 ?
否則可能必須告知, 程式離開方式 ? 存檔方式 ?
才能給你方向

IF EMPTY(This.Value)
IF MESSAGEBOX("該欄位不能為空白 !" + CHR(13) + "確定離開 ?", 16+1, "訊息視窗") = 1
RETURN .T.
ELSE
RETURN .F.
ENDIF
ENDIF

[jifflin]

我看過一個軟體它在客戶基本資料畫面時,按新增鍵...如果在客戶編號欄未鍵入任意字,要離開此欄位會提示"欄位空白"....
按確定後會回到原客戶編號欄位
但在表單的下方有一結束鍵...(離開表單)
它可以在編號欄位上是空白的狀況下離開本表單

不知道這樣說是否可以讓你明白.........謝謝

[nelsonchuang]

[211482]

於Valid事件
* 滑鼠點取消時不檢核
IF LASTKEY() = 27
　CLEAR TYPEAHEAD
　KEYBOARD '{F4}'
　RETURN .T.
ENDIF

[jifflin]

211482前輩的方式成功了....但是

我又發現如果是在按鈕組(commandgroup)裡好像就不行了....

是否還有解呢??(我正在傷腦筋實驗中......)

[jifflin]

我錯了~~我忘了設cancel為.t.了......211482前輩的方法都可行了........><......對不起上一個多發言了....