| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142531) |
| -- 作者：LXP166 -- 发布时间：2019/10/30 9:19:00 -- [求助] 根目录下合同子目录下 放置合同文件，想控制非销售部门的人看到合同，用下列程序控制不住，打开文件仍然弹出合同窗口 If User.Group <> "销售" Then e.Cancel = True MessageBox.Show("你无访问此目录的权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If End If |
| -- 作者：有点蓝 -- 发布时间：2019/10/30 9:27:00 -- 代码写在什么事件的？ msgbox(e.FolderName) \'看看真正的目录名 |