如何在没有CreateDataset的情况下将新字段添加到数据集？

Question

我有一个数据集TclientDataSet其中的字段是由代码创建的。 我需要用户在保留现有数据的同时附加其他字段。

`MYclientDataSet.FieldDefs.Add(s, ftString, 20); 
MYclientDataSet.CreateDataset; 
MYclientDataSet.Open; 
MYclientDataSet.edit; 
MYclientDataSet.FieldByName(s).AsString := 'Test'; 
MYclientDataSet.post;` 

这可以工作，但CreateDataset会擦除所有数据。 有什么方法将新字段添加到数据集？

我已经尝试了许多其他的解决方案，但没有一个似乎工作

千恩万谢

Answer 1

如果你问fkData类型的字段，即那些这将被包含在所保存的数据的CDS，可以不加这些字段一旦CDS已经打开。

我知道达到同等效果的最简单方法是

1. 保存CDS数据XML。

2. 修改定义fkData字段的XML中的元数据，以添加所需的元数据。

3. 保存XML。

4. 重新从XML中加载CDS。

我想我贴的如何做到这一点的答复的SO q中的前一段时间的例子。如果我能找到它，我会在稍后添加一个链接。

Answer 2

您可以用下面的代码，基本上保存当前数据实现这一目标，创造新场结构，并复制保存的数据回：

var 
    cds: TClientDataSet; 
begin 
    cds := TClientDataSet.Create(nil); 
    try 
    cds.Data := MyClientDataSet.Data; 
    MyClientDataSet.Close; 
    MyClientDataSet.FieldDefs := cds.FieldDefs; 
    MyClientDataSet.FieldDefs.Add('Note', ftString, 20); 
    MyClientDataSet.CreateDataSet; 
    cds.First; 
    while not cds.Eof do begin 
     MyClientDataSet.Append; 
     MyClientDataSet.CopyFields(cds); 
     MyClientDataSet.FieldByName('Note').AsString := 'Test'; 
     MyClientDataSet.Post; 
     cds.Next; 
    end; 
    finally 
    cds.Free; 
    end; 
end;