我有一个简单的代码,它在运行时创建一个数据集的副本及其所有详细数据集:
DestDataSet.FieldDefs.Assign(SourceDataSet.FieldDefs);
SourceDataSet.GetDetailDataSets(DetailList);
for i := 0 to DetailList.Count - 1 do
begin
with DestDataSet.FieldDefs.AddFieldDef do
begin
Name := TDataSet(DetailList[i]).Name;
DataType := ftDataSet;
end;
DetailCDSs.Add(NestedCDS);
end;
DestDataSet.CreateDataSet;
CreateDataSet
引发EDBClient
异常并显示消息“无效的字段类型”。谁能告诉我怎么了?