TADODataSet删除行,该行为什么消失了,而不是状态为usDeleted
要做操作日志,用一个DBGRID操作一个表,采用ltBatchOptimistic 批量模式,
现在可以得到新增,修改的,但是得不到删除的
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
memo1.lines.clear;
with clientdataset1 do
begin
////////////////////
StatusFilter := [usModified, usInserted, usDeleted];
Filtered := True;
while not eof do
begin
case UpdateStatus of
usModified : Memo1.Lines.Add('修改: '+vartostr(fields[0].oldvalue)+' => '+fields[0].asstring);
usInserted : Memo1.Lines.Add('新增: '+fields[0].asstring);
usDeleted : Memo1.Lines.Add('删除: '+vartostr(fields[0].oldvalue));
end;
next;
end;
StatusFilter := [];
end;
end;
当然有一个别人用的是clientdataset1,我这边用的是TADODataSet.请问一下大家。TADODataSet应该怎么作?