請問各位大大: 我現在有3個DBGRID.第一個DBGRID和第二個是有做關連的 第一個DBGRID要從第一筆跑到最後一筆 在每筆時第二個DBGRDI跟第三個DBGRID比對 如果有重覆就跳出    

感謝kakene大大的指導. 但還是有一點小問題.. 就是只能做一次的查詢及查詢資料的第一筆 請各們大大們幫我看一下..謝謝 以下是我的程式碼 procedure TForm_a.Button2Click(Sender: TObject); begin While not table7.eof do begin while not table6.eof do begin while not table5.eof do begin if DBGrid6.Fields[1].text = DBGrid5.Fields[0].text then if DBGrid6.Fields[2].text = DBGrid5.Fields[1].text then Showmessage('有衝堂!'); table5.Next; end; table6.Next; end; table7.Next; end; end;

procedure TForm_a.Button2Click(Sender: TObject);
begin
  While not table7.eof do //Table7 從第一筆跑到最後一筆
  begin
    while not table6.eof do //Table6 從第一筆跑到最後一筆
    begin
      while not table5.eof do //Table5 從第一筆跑到最後一筆
      begin
        if DBGrid6.Fields[1].text = DBGrid5.Fields[0].text then
          if DBGrid6.Fields[2].text = DBGrid5.Fields[1].text then
          可以改成          
          if (DBGrid6.Fields[1].text = DBGrid5.Fields[0].text)
                 and (DBGrid6.Fields[2].text = DBGrid5.Fields[1].text) then                    
            Showmessage('有衝堂!');
        table5.Next;
      end;
      table6.Next;
    end;
    table7.Next;
  end;
end;

T6 跟 T7 是有關聯的話,T7 移到下一筆,T6 應該會更新內容再作比對, T6 跟 T5每一筆都會做到比對才對,我也想不會其他的了,其他大大可以幫忙指點一下... 發表人 - kakene 於 2003/12/03 13:44:49