clientdataset 遍历字段_ClientDataSet 动态创建 计算字段 Field

ClientDataSet为一个中间件，很好用，但是也有种种问题的出现。

当ClientDataSet是静态创建的，那个，动态创建Field，正常。

var

Field : TStringField;

begin

Field := TStringField.Create(FClientDataSet);

Field.FieldKind := fkCalculated;

Field.FieldName := 'State';

Field.Name := 'State';

Field.DataSet := FClientDataSet;

end;

但是ClientDataSet是动态创建的，那么直接使用上面的代码，将只有这个动态创建的字段，别的字段全部不见了。

怎么办呢？

先读取ClientDataSet的提供者所提供的字段，然后再加入之上的代码，那么就可以了，提交数据也正常了。

for i := 0 to FDataSetProvider.DataSet.Fields.Count - 1 do

begin

Field := TStringField.Create(FClientDataSet);

Field.FieldKind := fkData;

Field.FieldName:= FDataSetProvider.DataSet.Fields.Fields[i].FieldName;

Field.Name:= FDataSetProvider.DataSet.Fields.Fields[i].Name;

Field.DataSet := FClientDataSet;

end;

网上查了半天都没有找到直接的答案，现在做个笔记吧。