我试图计算字段添加到与创建的现有数据集fieldDefs.add
使用下面的代码与我的几个网站,包括堆栈溢出,发现了很多的变化。
但fieldDefs
由创建fieldDefs
线或由dataSet
线被丢失更新FieldDefs.count
。
Fields.counts
坚持但不保存为XML文件。
没有例外的提高。
有没有人有任何想法是怎么回事? 谢谢
MYclientDataSet.CreateDataSet;
MYclientDataSet.open;
MYclientDataSet.FieldDefs.Update;
MYclientDataSet.Active := False;
for i := 0 to MYclientDataSet.FieldDefs.Count - 1 do
MYclientDataSet.FieldDefs[i].CreateField(MYclientDataSet);
fld := TStringField.Create(MYclientDataSet);
with fld do begin
FieldName := 'PartSummary';
FieldKind := fkCalculated;
Calculated := True;
Name := cds.Name + FieldName;
DataSet := MYclientDataSet;
MYclientDataSet.FieldDefs.Add('PartSummary', ftString, 30, false);
MYclientDataSet.FieldDefs.update;
end;
MYclientDataSet.active := true;
MYclientDataSet.open;
MYclientDataSet.edit;