DESIGN模块下，调用ADMIN模块的程序，踢人(expunge user process )

caesar

DESIGN模块下，调用ADMIN模块的程序，踢人(expunge user process )

看了一下，admin模块下调用的是 D:\aveva\plant\PDMS12.0.SP6\PMLLIB\admin\forms\admexpunge.pmlfrm

-- Kill existing form definition
kill !!admExpunge

-- Define form
setup form !!admExpunge resize

  !!admExpunge.formTitle     = |Expunge User Process|
  !!admExpunge.iconTitle     = |EXPUNGE PID|
  !!admExpunge.callback      = |call !!admExpungeInit()|
  !!admExpunge.formRevision  = | $Revision: 1.4 $ |

  -- Body of form definition
  frame .processFr at x 0.1 y 0 |Project Users| anchor all

    list .process at xmin+1 ymin+1 anchor all multiple columns width 50 height 10

    option .sort at xmin ymax+0.2 anchor bottom+left |Sort By| call |call !!admExpungeInit()| width 10
    !dispList = ARRAY()
    !dispList.append(|Date|)
    !dispList.append(|Real Name|)
    !dispList.append(|Username|)
    !dispList.append(|Host|)
    !dispList.append(|Module|)
    !this.sort.dText = !dispList

    button .update at xmax+19 ymin anchor bottom+right |Update List| call |call !!admExpungeInit()|

  exit

  button .expunge at xmin.process ymax+0.5 anchor bottom+left |Expunge| call |call !!admExpunge()|
  button .dismiss at xmax form-size ymin anchor bottom+right |Dismiss| CANCEL


exit
-- End of form definition for !!admExpunge

主要涉及到2个pmlfnc： call !!admExpungeInit()    call !!admExpunge()

D:\aveva\plant\PDMS12.0.SP6\PMLLIB\admin\functions\admexpungeinit.pmlfnc
D:\aveva\plant\PDMS12.0.SP6\PMLLIB\admin\functions\admexpunge.pmlfnc


当在DESIGN 模块下执行的时候  出现 如下错：

(61,125)  F&M: Gadget PROCESS not found
In line 37 of PML function admexpunge
  !processList = _Process.selection(|RTEXT|)

有大神能帮忙解释一下吗？

Guitarist

666