各位大大： 我現在要做一個功能，是讓使用者修改DBGrid中的資料，當使用者按下存檔後，先去比對資料庫中有無相同的資料，但是因為DBGrid一變更，游標一移動，就會自動存回資料庫，所以不管怎麼比對都有資料；若將Locktype改成ltBatchOptimistic，則在第一筆修改後按存檔，他會跑去比對第二筆，下面附上我程式，請各位大大幫忙一下，看我哪裡有錯。 tableDetail2D.First; while not tableDetail2D.Eof do begin if QueryCheck.Active then QueryCheck.Active := False; QueryCheck.SQL.Clear; begin QueryCheck.SQL.Add('SELECT A.* , B.* FROM MoldIssueNotice A,MoldIssueNoticePartsDetail B'); QueryCheck.SQL.Add('WHERE A.IssueNotice=B.IssueNotice AND DevCode = :PARA1 AND Gender = :PARA2 AND Size = :PARA3 '); QueryCheck.SQL.Add('AND MoldPurpose = :Para4 AND MoldCycle = :Para5 '); end; QueryCheck.Parameters.ParamByName('PARA1').Value := txtDevCode.Text; QueryCheck.Parameters.ParamByName('PARA2').Value := txtGender.Text; QueryCheck.Parameters.ParamByName('PARA3').Value := txtSize.Text; QueryCheck.Parameters.ParamByName('PARA4').Value := DBGridDetail2D.Fields[5].AsInteger; QueryCheck.Parameters.ParamByName('PARA5').Value := DBGridDetail2D.Fields[6].AsString; QueryCheck.Active := True; if not QueryCheck.Eof then begin MessageDlg('部位編號: ' IntToStr(tableDetail2D.FieldValues ['PrtId']) '，開模目的：' tableDetail2D.FieldValues ['MoldPurpose'] '，模具輪次：' tableDetail2D.FieldValues ['MoldCycle'] '，於系統中存在相同記錄!! (開模通知單編號: ' IntToStr(QueryCheck.FieldValues['IssueNotice']) ' )', mtInformation, [mbOK], 0); exit; end else begin tableDetail2D.Next; end; end; 我是用D5 SQLServer！！

Fen您好, 您這段程式碼是不是放在要檢查的table之OnBeforePost事件之中? 還有遇到資料庫有相同資料時, 是否用abort使程式不去post相同資料 到table裡?    

tableDetail2D.First;
while not tableDetail2D.Eof do
  begin
    if QueryCheck.Active then
       QueryCheck.Active := False;
       QueryCheck.SQL.Clear;
     begin
       QueryCheck.SQL.Add('SELECT A.* , B.* FROM MoldIssueNotice   
                      A,MoldIssueNoticePartsDetail B');
       QueryCheck.SQL.Add('WHERE A.IssueNotice=B.IssueNotice AND 
            DevCode = :PARA1 AND Gender = :PARA2 AND Size = :PARA3 ');
       QueryCheck.SQL.Add('AND MoldPurpose = :Para4 AND MoldCycle 
            = :Para5 ');
     end;     QueryCheck.Parameters.ParamByName('PARA1').Value := txtDevCode.Text;
 QueryCheck.Parameters.ParamByName('PARA2').Value := txtGender.Text;
 QueryCheck.Parameters.ParamByName('PARA3').Value := txtSize.Text;
 QueryCheck.Parameters.ParamByName('PARA4').Value := 
                                  DBGridDetail2D.Fields[5].AsInteger;
 QueryCheck.Parameters.ParamByName('PARA5').Value := 
                                   DBGridDetail2D.Fields[6].AsString;
 QueryCheck.Active := True;     if not QueryCheck.Eof then
   begin
      MessageDlg('部位編號: '   IntToStr(tableDetail2D.FieldValues
      ['PrtId'])   '，開模目的：'   tableDetail2D.FieldValues
      ['MoldPurpose']  '，模具輪次：'   tableDetail2D.FieldValues
      ['MoldCycle']  '，於系統中存在相同記錄!! (開模通知單編號: '    
      IntToStr(QueryCheck.FieldValues['IssueNotice'])   ' )', 
      mtInformation, [mbOK], 0);
     exit;
   end
   else
   begin
      tableDetail2D.Next;
   end;
   end;

您好～ 將此段程式放在tableMaster2D的BeforePost內試試~

我試過了，可是會出現stack overflow的錯誤訊息，這是什麼意思呢？

stack overflow可能是無窮回圈造成! 將TQuery改成CacheUpdate用批次Update資料庫, 或用TClientDataSet. Delphi follower

------
Delphi

我用的是ADOQuery，應該要如何做ㄋ？ 抱歉，新手問題比較多

Fen 我的看法是, 您在OnBeforePost裡 用另一個TADOQuery用SQL語法限定調閱的範圍 然後去判斷adoquerycheck.RecCount數就知道有無重複資料 因為您在BeforePost用 while not tableDetail2D.Eof do ...... 這會導致效能不彰 所以在這檢驗程式碼能儘量縮小範圍, 那是最好的 也或許可以解決您的stack overflow訊息

不好意思~沒看清楚您用的元件! 發表人 -

TADOQuery and TClientDataSet範例可參考官方範例 \Delphi7\Demos\Ado\AdoTest\AdoTest.dpr Delphi follower

------
Delphi