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; 

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

你可能感兴趣的:(client)