【结贴】请求]功能B关闭后刷新功能A的数据集续!!!![请求]**

luoyb

procedure TXYR.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
  TmpForm : RYLBGN.TRYLB;
  lFunc: TFunc;
  tmpUniqueId:string;
  Recno : integer;
begin
  Inherited;
  tmpUniqueId:=SYSTEMCORE.TFuncManager.GetFuncUniqueID(context.parent,'Biz:\ZHAJ_DS\RYLBGN.Func','');
  lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);
  tmpform:=RYLBGN.TRYLB(RYLBGN.TRYLBGN(lFunc).MainForm);
  tmpform.dsbXYR.DataSet.Close;
  tmpform.dsbXYR.DataSet.Open;
end;
  运行的时候我下面这个目录,找不到,是个空对象
   'Biz:\ZHAJ_DS\RYLBGN.Func'

我X3版本是2936的,是否版本的问题

lixy

http://bbs.justep.com/forum.php? ... ght=GetFuncUniqueID
看看11楼

luoyb

http://bbs.justep.com/showthread.ph...GetFuncUniqueID
看看11楼
这个我已经看过了,但还是不行,能否告诉我'Biz:\ZHAJ_DS\RYLBGN.Func' 这个应该怎么写才不会找不到对象 ,我的版本是2936版本,能否告诉2936的路径要怎么写才行

lixy

你对应的看看标准主窗体的代码  UIRunFunc，看看2936是怎么拼的url

luoyb

procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);
var
  lContext: TContext;
  S, lUID: string;
  lFunc: TFunc;
begin
  lUID := AUniqueID;
  if lUID = '' then
  begin
    // 暂时一个功能只能运行一份实例, 不同参数的功能，允许多份实例
    lUID := AFuncURL + '.MainForm.Run' + '|' + AParams;
  end;


我目录的这样写的'Biz:\ZHAJ_DS\RYLBGN.Func'+'|'+'.MainForm.Run',但还是找不到对象,晕....

lixy

...
所以方法需要修改一下
2619修改为
tmpUniqueId := 'Biz:\OPERATION\BDYGN.FUNC' + '.MainForm.Run' + '|' + '';
你竖线好像位置错了。

luoyb

已经可以,谢谢!!