【结帖】运行代码出错,请工程师看看**

wkj

只要运行下列代码时出错:
procedure TMainForm.ToolButton1Click(Sender: TObject);
var
//lOperator:  Business.Model.TOperator;
   lContextCurrent: Business.Model.TContextCurrent;
begin
   lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
   // lOperator := SystemUtils.TContextUtils.GetOperator(Self.Context);
       DataSetBroker1.DataSet.FieldByName('ffbm').AsString:=lContextCurrent.Operator.DisplayName;
    DataSetBroker1.DataSet.FieldByName('ffr').AsString:= lContextCurrent.Dept.DisplayName;
     lContextCurrent.Free;

    end;

zfang

是初始化运行么？

zfang

请楼主反馈下问题。

zfang

由于楼主长期未反馈，先结帖！
有问题请重新开帖！