【搞定】信息隔离级的问题**

stellastarr

先和版主说一下问题的重现：
1。首先建一张数据表；
2。创建业务信息A和功能B；
3。为功能B分配信息A；
4。我想在功能B中调用信息A中的公共方法，具体实现如下：
首先在功能B中声明一个信息A的引用，然后创建信息A的实例，
并使用实例调用信息A中的公共方法，示例代码如下：
procedure Button1Click(Sender: TObject);
var
  obj: A;//声明信息A的引用
begin
  obj := A.Create(Context);
  try
    obj.Test;//调用信息A中的公共方法Test
  finally
    obj.Free;//释放obj
  end;
end;
然后我在运行功能B，在点击Button1的时候会报如下图所示的错误，请问版主该如何解决：

atiger

从 “系统初始化”这个功能运行看看

jiahaiminghr

为功能b分配了信息a后，直接通过infobroker引用信息就可以了，不需要再创建

stellastarr

我在信息a中公布了一个刷新该信息数据集的公共方法，然后在功能b中按照版主说的使用infobroker调用刚才的刷新数据集公共方法，但在初始化运行后报错：

yancm

把具体的报错语句贴一下

stellastarr

报错语句就定位到信息的公开方法上，该方法只做了刷新该信息引用的数据集

yancm

通过你的描述很难判断错误，能把调用的代码贴一下吗？

atiger

把你信息实现的代码贴出来看看。

stellastarr

在信息A中添加了一个公共方法Test，对信息A引用的数据集进行操作（不一定就是修改，有可能是刷新）
procedure TDOC_JLST.Test;
begin
  dsbBZSJJ.DataSet.Edit;
  dsbBZSJJ.DataSet.FieldByName('ZD2').AsString := 'zhangsan';
end;
然后我在功能b中添加一个按钮Button1，调用信息a中的公共方法
procedure TMainForm.Button1Click(Sender: TObject);
begin
  INFO_YWXX.TDOC_JLST(InfoBroker.Info).Test;
end;
一点击功能b中的Button1就会报4楼的错误

stellastarr

顶一下