請問如何取得Delta裡TDataSetField的值?
cds1,cds2: TClientDataSet;
cds1,cds2為Master/Detail關係並用NestedDataSet實作.
procedure TForm1.pv1BeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
var i: Integer;
begin
  cds1.Data := DeltaDs.Data;
  for i:= 0 to DeltaDs.FieldCount - 1 do
    if (DeltaDs.Fields[i] is TDataSetField) then
      cds2.DataSetField := TDataSetField(DeltaDs.Fields[i]);
  Applied := True;
end;
我用各兩個TDatasource,TDBGrid去聯cds1,cds2,想觀察其值並且以後將
異動值另外儲存在其他Table,但cds1正常,cds2卻出現
'Nested dataset moust inherit from TPacketDataset'
請問如何處理?
 

謝謝我試出來了!
procedure TForm1.pv1BeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
var i: Integer;
  cds: TClientDataSet;
begin
  cds := TClientDataSet.Create(Self);
  cds1.Data := DeltaDs.Data;
  for i:= 0 to cds1.FieldCount - 1 do
    if (cds1.Fields[i] is TDataSetField) then
      cds := TClientDataSet(TDataSetField(cds1.Fields[i]).NestedDataSet);
  cds2.Data := cds.Data;
  cds.Free;
end;