以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关闭窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110703)

--  作者:江南小镇
--  发布时间:2017/12/7 20:06:00
--  [求助]关闭窗口
老师,下面代码是打开文件管理窗口的代码(包括打开窗口的权限)。目的是想打开文件管理窗口时能同时关闭按钮所在的窗口。

If Functions.Execute("授权1","文件管理")
   Forms("文件管理").Open
End If
添加下面关闭窗口的代码后会把项目也关闭了。
Forms("系统").baseform.visible=False     \'关闭系统窗口


--  作者:有点甜
--  发布时间:2017/12/7 20:52:00
--  

 模式窗口?试试

 

If Functions.Execute("授权1","文件管理")
   e.Form.BaseForm.Opacity = 0

   e.Form.Close

   Forms("文件管理").Open
End If