【搞定】[请求]关于隔离级错误的问题！！**

bzlhfh213

问题出现情况：我从一个功能（暂且定为A功能）引用另一个功能（B功能）后，这时2个功能主窗体都是打开的，当我把A功能关闭后，再切换到B功能，此时就会弹出[person]隔离级错误的错误框；
注：A,B2功能都未进行隔离级设置。请问这种情况该如何解决。

jiahaiminghr

你是如何在A中创建出B的？

bzlhfh213

2个功能是独立的，只是A功能要传个参数给B

bzlhfh213

不是引用是调用呵呵不好意思说错了

lisb

具体怎么调用的？是在设计期出现的提示吗？

jiahaiminghr

需要看你是如何调用B功能的？
或者看一下B的环境链是什么？

bzlhfh213

A功能这里不过是有个BUTTON单击事件，传了一个字段Id给功能B，B功能是一个查询模块，根据A功能传来的ID，做了把过滤而已。是在用IE运行的时候，如果从A功能进去，点了BUTTON调用了B功能后，在将A功能窗体关闭，在点下B功能的窗体，就会出现报隔离级错。

jiahaiminghr

看看你的代码

bzlhfh213

我单独运行B功能或单独运行A功能都是没错误的。只是用IE运行时，才出现。
A功能能的BUTTON事件：

procedure TCMDJForm.ButtonZJGLClick(Sender: TObject);
var
  cmnbid :String;
begin
  try
    cmnbid := InfoBrokerCMXX.Info.DataSetByID('CMJBXX').FieldByName('CMNBID').AsString;
    TSystemCore.FuncManager.RunFunc(Context, '',  'Biz:\CBCM\CMZJGL.Func', cmnbid , nil, False);
  except
  end;

  InfoBrokerCMXX.Info.ApplyUpdates;
  close;
end;

B功能主窗体ONSHOW事件：
procedure TCMZJYWCX.BizFormCreate(Sender: TObject);
var
  cmnbid :string;
begin

  cmnbid := FuncBroker.Func.Parameters;

  if length(cmnbid) > 0 then
  begin
    with TSQLDataSet(InfoBrokerCMZJCXYWXX.Info.DataSetByID('CMSJJ')) do
    begin

      SQLfilter := 'CMNBID = ''' + cmnbid +''' ';
      SQLfiltered :=true;
      if not active then
        begin
           open;
       end;
    end;
  
end;

end;
－－－－－－－－－－－－－－－－－－－－－－－
顺便问一下：用代码怎么调用 DataNavigator 的按钮功能；麻烦各位了◎◎！！

lisb

看不出问题来，请楼主qq联系远程看一下。