动态建立计算、参照字段的方法

建立此类字段的关键，是必须先为数据集现有的字段建立固定字段(运行时运态创建) procedure BuildCalcField; var i : Integer; Field : TField; begin DataSet.FieldDefs.Update; for i := 0 to DataSet.FieldDefs.Count -1 do begin Field := DataSet.FieldDefs.Items[i].FieldClass.Create(DataSet); Field.FieldName := DataSet.FieldDefs.Items[i].Name; Field.FieldKind := fkData; Field.Size := DataSet.FieldDefs.Items[i].Size; Field.DataSet := DataSet; end; Field := TFloatField.Create(DataSet); Field.FieldName := 'TotalMoney'; Field.FieldKind := fkCalculated; Field.DataSet := DataSet; end;