【结帖】流程中如何使用数据集字段**

tfb

在流程的功能环节事件中希望根据数据集字段的值来设置下一环节的执行者.

        请问要如何使用那个字段, 我已经在项目配置中引入了数据集所在的业务信息1, 业务信息1下有一个数据集1,现在的问题是如何写这个代码.

yancm

使用数据集代理。DataSetBroker1.DataSet.FieldByName('ID').AsString

lixy

楼主请回馈

tfb

业务流程下怎么添加数据集代理啊？

atiger

不是在流程中添加数据集，是在流程的功能环节所对应的功能的窗体上添加数据集

tfb

添加后要如何使用呢？  调用该数据集的语句是？

jiahaiminghr

看2楼

tfb

在流程中调用功能窗体的数据集，麻烦您看一下前面的。

lixy

procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  i: Integer;
  lField: TDataField;
  lFlowTask: TFlowTask;
begin
  for i:=0 to Command.FlowTasks.Count-1 do
  begin
    lFlowTask := Command.FlowTasks;
    if SysUtils.SameText(lFlowTask.ProcUnit.ID, 'ZJHJ1') then
      lField := DataSetBroker1.DataSet.FieldByName('PRODUCTTYPE')
    else if SysUtils.SameText(lFlowTask.ProcUnit.ID, 'ZJHJ2') then
      lField := DataSetBroker1.DataSet.FieldByName('PRODUCTTYPE')
    else
      lField := DataSetBroker1.DataSet.FieldByName('CONTENT');
    lFlowTask.ExecutorMustBeFuncOwner := False;
    lFlowTask.AllowExecutorRange := Org.OrgExpr.OrgChildren(Org.OrgExpr.OrgKey(lField.AsString, '', ''), '', True);
  end;

例子代码，看看怎么调的。

alang

参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=19618
15楼