1. 程式人生 > >Delphi ClientDataSet複製記錄

Delphi ClientDataSet複製記錄

資料來源記錄集:ClientDataSetSource;目標記錄集:ClientDataSetCopy

1)複製一條記錄。

  ClientDataSetCopy.Close;
  ClientDataSetCopy.Fields.Clear;
  ClientDataSetCopy.FieldDefs.Clear;

  //複製欄位定義
  ClientDataSetCopy.FieldDefs.Assign( ClientDataSetSource.FieldDefs);
  ClientDataSetCopy.CreateDataSet;
  ClientDataSetCopy.Edit; //Append;

  //複製當前記錄行
  ClientDataSetCopy.CopyFields(cds1);


2)複製所有記錄。

  ClientDataSetCopy.Close;
  ClientDataSetCopy.Fields.Clear;
  ClientDataSetCopy.AppendData(ClientDataSetSource.Data,False);