【结贴】代码调用表达式编辑器时，字段如何读取？**

lijingjun

你好：
   代码调用表达式编辑器时，字段如何读取,如下边的“lstrings”

BizUtils.EditExpression( lStrings, lFuncs, lExpression, nil) then  //调出表达式编辑器

atiger

static function EditExpression(AFields: Business.System.TStrings; AFunctions: Business.System.TList; AExprText: string; AExpr: Justep.System.Expr.TExpr): Boolean;

lijingjun

可能我表述的不清楚
BizUtils.EditExpression( lStrings, lFuncs, lExpression, nil)
中第一个参数是字段，这个参数如何设置，才能在运行时，点击"字段"按钮显示当前数据集的字段列表?   
请告诉我方法

jiahaiming

AFields   ： 数据集业务字段列表，参与表达式运算。格式有两种（不需要在Tstrings里记录BizField对象）：
1、DataSetID.FieldID=DataSetDisplayName.FieldDisplayName
2、FieldURL=DataSetDisplayName.FieldDisplayName

lijingjun

var
  lExpression: string;
  lDataField: TDataField;
  lBizParam : TBizParam ;
  lFuncs: TList;
  lStrings:TStringList;
  lExpr: TBizExpr;
  lreturn: Variant;
begin
  lStrings:=TStringList.Create;
  lFuncs:=TList.Create;
  try
    BizExpr.ExprFunctions.Get(lFuncs,nil,true);
    lExpression := DataSetfreefield.BizFieldByName('FExpr').AutoFillDef.Expression.Text;
    if BizUtils.EditExpression(lStrings, lFuncs, lExpression, nil) then  
    begin
      DataSetfreefield.BizFieldByName('FExpr').AutoFillDef.Expression.Text := lExpression;
      ...
     ...
    end;

  finally
    lFuncs.Free;
  end;
  lStrings.free;
end;


请问，以上这段程序里，如何让“表达式编辑器”的“字段”按钮可以操作并能列出相关字段?

jiahaiming

lStrings怎么设置的？
要在当前环境里能够找到你在lStrings中指定的数据集或者表的字段才行。

lijingjun

在5楼的程序里，如何设置这个lStrings，能达到可以使用字段按钮？我现在就是不知道怎么设置才来请教起步高手的

4楼的我没看明白如何使用

jiahaiming

lstrings.add('数据集ID.字段ID＝标准数据集1.字段1');

lijingjun

以下代码是在业务信息里的一个函数里实现的
'freefield 是数据集的ID   ,“自由项”是数据集的显示名称
公式设置的自动添充为“状态”
当运行到计算那块时提示如下错误：
“运行系统初始化时侯发生异常，符号“freefield.fstate”没有定义。类型：EEXPR”

var
  lExpression: string;
  lDataField: TDataField;
  lBizParam : TBizParam ;
  lFuncs: TList;
  AFields:TStringList;
  lExpr: TBizExpr;
  lreturn: Variant;
begin
  AFields:=TStringList.Create ;

  AFields.Add('freefield.FFREECNAME=自由项.计算表达式');     
  AFields.Add('freefield.FSTATE=自由项.状态');
  lFuncs:=TList.Create;
  try
    BizExpr.ExprFunctions.Get(lFuncs,nil,true);
    lExpression := DataSetfreefield.BizFieldByName('FExpr').AutoFillDef.Expression.Text;
    if BizUtils.EditExpression(AFields , lFuncs, lExpression, nil) then
    begin
      DataSetfreefield.BizFieldByName('FExpr').AutoFillDef.Expression.Text := lExpression;
      lExpr:=TBizExpr.Create(Context);
      try
        lExpr.Text :=lExpression;
        lreturn:=lExpr.Calc  ;
        DataSetfreefield.Edit;
        DataSetfreefield.FieldByName('FExpr').AsString := variants.VarToStr(lreturn);
      finally
        lExpr.Free ;
      end;
    end;

  finally
    lFuncs.Free;
  end;
  AFields.Free ;
end;

jiahaiming

freefield这个数据集打开了马？