如何获取字段的自动填充属性中的表达式并用代码执行这个表达式**

joyes

RT

yancm

bizfield.AutoFillDef.Expression

var
  lExpr: TDataSetExpr;
begin
  DataSetBZSJJ1.Open;
  lExpr := TDataSetExpr.Create(DataSetBZSJJ1, DataSetBZSJJ1.Context);
  lExpr.Text := Edit1.Text;
  lExpr.Prepare;
  jsDialogs.ShowMsg(Edit1.Text+'='+Variants.VarToStr(lExpr.Calc), '计算结果');
  lExpr.Free;
end;