如下详文。[问题]

shangxy

不会的，你在a功能上分配的数据集策略，是不会作用到b功能上的，单独运行b功能就正常了？

bfaomei

对 我单独从工作台中运行B功能就不会继承A功能对该数据集做的策略。

shangxy

猜不到了，我这边是正常的，要不你做个简单的例子导过来看看吧。

bfaomei

我把A功能的数据集策略删掉  在从A功能中打开B功能 就没有错了。 我估摸着A功能的数据集策略改变了业务信息中的数据集，而又没有中断A功能 而是从A功能中打开B功能 又由于是使用的同一个数据集  故而还是继承那个策略

shangxy

把a功能运行b功能的代码贴出来看看

bfaomei

procedure TDOCTOR_DOCUMENT_QUERY_DOC.DataGridDblClick(Sender: TObject);
var
   i:integer;
   s:string;
   lFuncIsRunning:Boolean;
begin
     if (DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.Active) and (not DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.IsEmpty) then
     begin
          if DataGrid.FocusedField.FieldName='DISTRICT_NAME' then
          begin
               s:='Biz:\HR\FUNC_DOCTOR_DOCUMENT_APPLY.Func';
               for i:= 0 to SystemCore.TSystemCore.FuncManager.RunningFuncCount - 1 do
               begin
                    if SysUtils.UpperCase(SystemCore.TSystemCore.FuncManager.RunningFuncs.BizClassURL.BizURL.URL) = SysUtils.UpperCase(s) then
                    begin
                         lFuncIsRunning := True;
                         break;
                    end
                    else
                      lFuncIsRunning := False;
              end;
              if  lFuncIsRunning then
              begin
                   JsDialogs.ShowMsg('您已经打开了该功能，请关闭后在执行该操作！','提示');
                   SysUtils.Abort;
              end
              else
                  SystemCore.TSystemCore.FuncManager.RunFunc(Context,'',s,DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.FieldByName('FILLER_CODE').AsString+'-'+DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.FieldByName('PRIMARY_ID').AsString,nil,False);
          end;
     end;
end;

lixy

SystemCore.TSystemCore.FuncManager.RunFunc(Context

Context 这个改成parent.context

bfaomei

我试下。

bfaomei

parent哪里来的？ 要引用什么单元么？

bfaomei

使用parent.context 编译出错哦。 要引用什么单元么？