【结】TDeltaDataSet是不是有Bug？

atiger

来了
参考代码如下

VAR
  FDelta2: TDeltaDataSet;
begin
  Memo1.Lines.Clear;
  if not Assigned(FDelta2) then
  begin
    FDelta2 := TDeltaDataSet.Create(DataSetBrokerBZSJJ1.DATASET);
  end;
  FDelta2.First;
  while not FDelta2.Eof do
  begin
    Case FDelta2.UpdateKind of
    TUpdateKind.ukDelete: Dialogs.ShowMessage('this record is Deleted');
    TUpdateKind.ukInsert: Dialogs.ShowMessage('this record is Inserted');
    TUpdateKind.ukModify:
    begin
      Memo1.Lines.Add(FDelta2.Fields[1].AsString);
     FDelta2.NextStatus ;
      Memo1.Lines.Add(FDelta2.Fields[1].AsString);
    end;
       else Dialogs.ShowMessage('error');
    end;
   FDelta2.Next ;
  end;
end;

这样就ok了

xhong

测试通过了，被之前的帖子误导了，那个看你也改OK了。

atiger

好，结

xhong

那Next和NextStatus的区别是什么呢？

xhong

那Next和NextStatus的区别是什么呢？

xhong

那Next和NextStatus的区别是什么呢？

xhong

那Next和NextStatus的区别是什么呢？

atiger

不好意思，这个东东有点复杂
在TDeltaDataSet里面，记录有点复杂，如果是增加，和删除，里面记录是一条新的一条旧，next和nextstat是一样的，而如果是修改的话，就记录一个旧的两个新的，此时next和nextstat就不一样了。所以在TDeltaDataSet，nextstat可以保证每次都是对应到正确的记录上，不推荐使用next

xhong

如果是增加，和删除，里面记录是一条新的一条旧
好像不是，我测试了，增加和删除分别就都是一条。而修改，我测试是一个旧的一个新的。
11楼给的代码就是用Next遍历的啊，遍历时候我用NextStatus有问题
我理解你们说的：nextstat可以保证每次都是对应到正确的记录上，意思仅针对修改情况，是这样吗
请测试一下确认一下，这部分似乎测试结果和预想的总是不一样

xhong

很急，一个礼拜了