【结贴】数据集记录删除

allentime

ADataSet.DisableControls;
ADataSet.First;
while not ADataSet.Eof do
  begin
      ADataSet.Delete;
       ADataSet.Next;
   end;
ADataSet.EnableControls;
需要删除数据集中所有记录，用上面的代码执行，删除不了，只能删除数据集中的部分记录；用EmptyDataSet属性也不行，有没有啥办法删除当前数据集中的所有记录？

zfang

请楼主尝试一下下面的写法
var
  i : Integer;
begin
  DataSetBroker1.DataSet.First;

  for i := 0 to DataSetBroker1.DataSet.RecordCount - 1 do
  begin
    DataSetBroker1.DataSet.Delete;

    DataSetBroker1.DataSet.Next;
  end;

allentime

搞定了  谢谢~！结贴

hjingshen

ADataSet.DisableControls;
ADataSet.First;
while not ADataSet.Eof do
  begin
      ADataSet.Delete;
       //ADataSet.Next;      //这句不需要
   end;
ADataSet.EnableControls;


你加了这句代码，当然就只能删除一部分咯！！！因为删除完，他指针已经自动往下移动了（可以这样理解吧）