ClientDataSet中数据保存的问题
ClientDataSet中的数据保存,其中有一个字段为流水号,所以要求每条数据都是唯一号,如何在ApplyUpdates前给每条记录赋一个流水号?
[解决办法]
var i,recno:integer;
begin
ClientDataSet1.DisableControls;
recno := ClientDataSet1.RecNo;
ClientDataSet1.First;
for i := 0 to ClientDataSet1.RecordCount - 1 do
begin
ClientDataSet1.FieldByName('aa').AsString := i;
ClientDataSet1.Next;
end;
ClientDataSet1.RecNo := recno;
ClientDataSet1.EnableControls;