[结帖]关于在功能中调用信息中的窗体。

sun4559

代码：
var  f4:BJXX.TXMBJXXFORM;
       f5:KHKCJDDJINFO.TKHKCJDXXFORM;

    if dsbSHSPCXProc.dataset.fieldbyname('lcmb_mc').asstring='报价申请' then
    begin

       try
         f4:=BJXX.TXMBJXXFORM.create(context);
         f4.dsbXMBJ.dataset.close;
         TSqlDataSet(f4.dsbXMBJ.DataSet).sql.Text :='select * from tdxmbj where id in (select bjid from tdxmbjcp where id='+#39+dsbSHSPCXProc.dataset.fieldbyname('ywlc_lcgyid').asstring +#39+' )';
         f4.dsbXMBJ.dataset.open;
         f4.showmodal;
       finally
         f4.free;
       end;
    end;

    if dsbSHSPCXProc.dataset.fieldbyname('lcmb_mc').asstring='来客考察' then
    begin
       try
         {dsbMaster.dataset.close;
         TSqlDataSet(dsbMaster.DataSet).sql.Text :='select * from tdxmxx where xmid in (select xmid from TDXMKCJDXX where id='+#39+dsbSHSPCXProc.dataset.fieldbyname('ywlc_lcgyid').asstring +#39+' )';
         dsbMaster.dataset.open;  }

         f5:=KHKCJDDJINFO.TKHKCJDXXFORM.create(context);
         f5.dsbKHKC.dataset.close;
         TSqlDataSet(f5.dsbKHKC.DataSet).sql.Text :='select * from TDXMKCJDXX where id='+#39+dsbSHSPCXProc.dataset.fieldbyname('ywlc_lcgyid').asstring +#39;
         f5.dsbKHKC.dataset.open;
         f5.showmodal;
       finally
         f5.free;
       end;
    end;
创建 f4 报当前环境链中,隔离级为[INFO]的不存在
创建f5是好的，怎么解决。急！

jiahaiminghr

在客户端Ctrl+Alt+Shift+O调出对象查看器，看一下环境。

atiger

1、检查 BJXX.TXMBJXXFORM  和 KHKCJDDJINFO.TKHKCJDXXFORM 窗体上是否有信息代理，如果有，他们的属性定义是否一致
2、检查功能窗体的 BJXX  和 KHKCJDDJINFO 的信息代理 属性是否一致
3、 BJXX  和 KHKCJDDJINFO  这两个信息 是否都分配给这个功能了

sun4559

解决了，是信息代理设置成default 了，改为具体的信息就好了