請教先進.. 我在dbgrid的處理是採用整批存檔的方式,想請教的是如何判定下一筆與上一筆 是否有重複資料當user還沒有存檔前?例如我有兩個欄位是pono 及 drno 我需判 定user是否於下一筆時重複輸入同樣內容的 pono & DRNO再他還沒有按save之前(我不想另開一個table來比對)? Thanks

JamesLiang您好 在欄位 pono及drno的OnValidate事件裡都執行下面程式碼(檢查是否己有相同的值存在)

procedure TForm1.Table1PartNoValidate(Sender: TField);
var
  bk:TBookMark;
  fieldname:string;
  fieldvalue:variant;
begin
  bk:=Table1.GetBookmark;
  fieldname:=DBGrid1.SelectedField.FieldName;
  fieldvalue:=DBGrid1.SelectedField.Value;
  Table1.DisableControls;
  try
    Table1.First;
    while not Table1.Eof do
    begin
      if Table1.FieldByName(fieldname).Value=fieldvalue then
      begin
        raise Exception.Create('重覆值');
      end;
    end;
  finally
    Table1.EnableControls;
    Table1.GotoBookmark(bk);
  end;
end;

JamesLiang您好： 参考下面，试试看

Pedro 先生.. 謝謝你的方式,但我發現一個問題是若user輸入第一筆資料時系統會當在那裡, 但若是第二筆以上就沒問題.請教應該如何處理? PS我是寫在DATAMODULE 表單的table內的onvalidate 多謝

JamesLiang, 終究還是需另一顆Table去做資料驗証的工作 因為當前Insert, 若您在OnVaildate裡去移動cursor, 即當前新輸入的資料就不見了, 所以上段程式碼改成Table2.....Table2指向同一個資料表 另若要加快速度, 不妨使用TQuery, 使用Sql語法, 速度會快很多..

pedro兄..多謝你的幫忙,我目前解決的方式如下 在此table的newrecord時有一count來計算筆數,當count大於一時才開始執行判定的動作,當發現重複時不用raise的方式而是showmessage後break出去,如此不會陷入迴圈