我用於dbgrid 內之 oncolexit 內, 判斷如果鍵入資料有問題 用 raise exception.create('.......') , 來產生一個警告 但: 問題 1: exception 之畫面丟出後, 只有一個確定鈕,如果使用者用 mouse,選確定,則可正確的回到那錯誤欄上,但如果用 enter 來使 exception 畫面消除的話, 則會殘留一個 enter key 丟回給dbgrid 處理,造成 oncolexit 又發生(我用 dbgridext , enter=移到下一欄),又無法攔到此 exception 之 enter key,不知如何是好?? 問題 2: execption 後,游標會留在剛輸入之位置,如使用者想重打,要 向左移到此欄位的第一個位置,如何可做到像 edit.selectall ,可重新輸入 問題 3: 資料的查核,小的一般放於 oncolexit 上, 但可惜是上下鍵並 不能引發oncolexit事件. 若放於欄位之onvalid事件上,無法做到如 如第一欄為空白,則取消此record,並把資料重安排流水號 並且無法在onvalid 內,付予此錯誤欄位之內容(如發現有誤, 丟出資料讓其選擇後,在onvalid內給予新值) 不曉得各位前輩,對於dbgrid之資料控制及正確性查核 是如何control的, 小弟是 delphi新手,發現要考慮到使用者之所可能非意料中操作,真的很難 ,一隻滑鼠到處可選,也會造成資料之正確性很難把握. 不曉得會不會有那位大大,願意提供較理想之單據檔(即有頭,深檔)流程控 制,供晚輩學習. 常擾各位前輩,sorry! and thanks.

我在做檢查時會用這樣做 If MessageDlg('資料重覆', mtConfirmation, [mbYes], 0) = mrYES Then Begin //dbgrid 的欄位在輸入一次資料.. end; 應該不會有問題..TRY TRY SEE

應該是在 TField.OnValidate 做沒錯, 只是依照你的需求, 程式控制較為複雜.    

感謝二位前輩,小弟因遠地出差,未能即時回應 ,深感歉意,待測試後,再報告各位. sorry again.