在DBGrid裡判斷key in 值不對如何回到原點 |
|
答題得分者是：T.J.B
|
|
chubby
一般會員   發表：43 回覆：65 積分：21 註冊：2003-05-13 發送簡訊給我 |
|
|
T.J.B
版主  發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
|
|
chubby
一般會員 發表：43 回覆：65 積分：21 註冊：2003-05-13 發送簡訊給我 |
引言: query1.FieldByName('DBGrid1.Fields[0]所對應的欄位名稱').FocusControl; 天行健 君子當自強不息~~@.@嗨 T.J.B 版主您好 if DBGrid1.SelectedIndex = 0 then if DBGrid1.Fields[0].AsString[1] in ['1','2'] then else begin Showmessage('輸入錯誤 值應為 1.借 2.貸'); ADOQuery1.FieldByName('DL_Type').FocusControl; ?? 不知是否我用錯 ,它還是沒有回到dl_type 而會跳至下一個Field ?? 發表人 - chubby 於 2004/07/12 11:10:07 |
|
T.J.B
版主 發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
建議你把這段程式碼寫在 DL_Type欄位的onValidate事件
程式碼換成這樣
s:= ADOQuery1.FieldByName('DL_Type').asstring;
s := copy(s,1,1); if not( s in ['1','2']) then
begin
raise exception.create('輸入錯誤 值應為 1.借 2.貸');
end;
這樣就會Focus在那個欄位了 天行健
君子當自強不息~~@.@
------
天行健 君子當自強不息~~@.@ |
|
chubby
一般會員 發表：43 回覆：65 積分：21 註冊：2003-05-13 發送簡訊給我 |
|
|
akemi
一般會員 發表：4 回覆：7 積分：2 註冊：2008-10-17 發送簡訊給我 |
===================引 用 T.J.B 文 章=================== 建議你把這段程式碼寫在 DL_Type欄位的onValidate事件程式碼換成這樣 s:= ADOQuery1.FieldByName('DL_Type').asstring; s := copy(s,1,1); if not( s in ['1','2']) then begin raise exception.create('輸入錯誤 值應為 1.借 2.貸'); end; 這樣就會Focus在那個欄位了 天行健君子當自強不息~~@.@ 請問要再哪一個 event 做這個判斷 !! 謝謝 |
發表時間：2004-07-12 09:45:19
IP:61.228.xxx.xxx 未訂閱
系統時間：2024-11-23 0:20:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |