begin
    with dm.ADODataSet2 do
        begin
            first;
            while not eof do
                begin
                    delete;
                    post;
                end;
        end;
end;

引言: 問題是這樣子的﹕ 我用兩個ADODATASET做主從表的連接﹐主表連的是adodataset1,從表連接的是adodataset2 關聯的字段為serialNO,在做刪除主表的記錄時對應的從表記錄也應該被刪除﹐我是先刪除從表然后再刪除主表的﹐在刪除從表的記錄后資料庫里還是存在一條記錄﹐那條記錄僅僅主從表的關聯字SerialNO字段有值,其它的為空﹐我中在主表的adodataset1的beforedelete的事件里寫代碼刪除對應從表記錄的﹕ var i:integer; begin with dm.ADODataSet2 do if not isempty then begin first; for i :=0 to RecordCount-1 do begin delete; edit; post; end; end; 為什么刪除不干淨呢﹖﹐請問在做主從表的刪除動作應該怎樣寫﹖謝謝﹗

  DataSet1.First;
  while not DataSet1.Eof do
  begin
    //do something...
    DataSet1.Next; //如果不是删除的话，一定要这一句！否则永远走不出这个 while 了。
  end;