以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  控件文件管理器底部按钮权限设置问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144032)

--  作者:狐表(小白)
--  发布时间:2019/12/9 11:50:00
--  控件文件管理器底部按钮权限设置问题
各位老师你好,项目窗口1添加了一个文件管理器控件,绑定内部表(附件表)的“文件”列,相对文件管理器底部按钮设置隐藏,只有“管理员“”才能看到增加、删除....等按钮,其他用户进行隐藏只能通过双击查看附件。自己在论坛上抄的代码(如下),试过几个地方切换用户登录后不起作用,都能看到还能添加附件,怎么改写代码?谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图20191209113408.png
图片点击可在新窗口打开查看

Tables("附件表").Cols("文件").OpenWindow()
Dim fm As WinForm.FileManager = Tables("附件表").Cols("文件").FileManager
If user.Name = "管理员" Then
    fm.DeleteCommand.Enabled = True
    fm.ClearCommand.Enabled = True 
    ....
    .....
Else
    fm.DeleteCommand.Enabled = False
    fm.ClearCommand.Enabled = False
    .....
    .....
End If

--  作者:有点蓝
--  发布时间:2019/12/9 11:54:00
--  
切换用户登录,在LoadUserSetting事件关闭所有已经打开的窗口,再重新打开需要的窗口