【搞定】循环检查做删除动作的问题**

Anson.Leung

DataSetBrokerSALES_RECORD_INPUT_DTS.DataSet.Last;
  while not DataSetBrokerSALES_RECORD_INPUT_DTS.DataSet.Bof do
begin
      if   条件 then
   begin
            DataSetBrokerSALES_RECORD_INPUT_DTS.DataSet.Delete;
      end;
     DataSetBrokerSALES_RECORD_INPUT_DTS.DataSet.Prior;
end;

从最后一条往上检查，当符合条件，就删除，不过这样做，有时候会漏删一条，这个我推算过，确实会这样，现在是重复执行2次，就会完全删除，但是对于数据量大，会很影响速度，请问有什么解决办法吗？谢谢

lixy

数据量大，推荐用delete语句删除。楼主为什么会漏掉一条需要自己跟踪一下代码

alang

我一般这么写
DataSet.First;
while not DataSet.Eof do
begin
  if 条件 then
    DataSet.Delete
  else
    DataSet.Next
end;

Anson.Leung

我上面的代码是会漏掉的，只是不好表达。
用alang的是可以的，用else是可以完全删掉了。多谢！