ClientDataSet1.First ; While not ClientDataSet1.Eof do begin ClientDataSet1.Edit ; ClientDataSet1.FieldByName('name').AsString:=ClientDataSet1.FieldByName('name').AsString+'My'; ClientDataSet1.Post ;//这里有问题,删除试试 ClientDataSet1.Next ; end; ClientDataSet1.ApplyUpdates(-1);
While not ClientDataSet1.Eof do
begin
ClientDataSet1.Edit ;
ClientDataSet1.FieldByName('name').AsString:=ClientDataSet1.FieldByName('name').AsString+'My';
ClientDataSet1.Post ;//这里有问题,删除试试
ClientDataSet1.Next ;
end;
ClientDataSet1.ApplyUpdates(-1);
试了,好象没什么作用,不影响运行。
可以即时显示,到DataSetProvider的option里po...就可以了