以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置局域网ftp中图片浏览器权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145319)

--  作者:luckbetter333
--  发布时间:2020/1/16 9:21:00
--  设置局域网ftp中图片浏览器权限
如题,在afteropenproject 中 
Select Case User.group
    Case "销售部"
Dim fl As WinForm.PictureViewer = Tables("产品档案").Cols("产品图").PictureViewer
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False
fl.AddCommand.Enabled = False
fl.ManagerCommand.Enabled = False
fl.SaveAsCommand.Enabled = False
End Select

来限制销售部浏览产品图时的权限,不好用,问题出在哪里?

--  作者:有点蓝
--  发布时间:2020/1/16 9:39:00
--  
Select Case User.group
    Case "销售部"
Tables("产品档案").Cols("产品图").OpenWindow
Dim fl As WinForm.PictureViewer = Tables("产品档案").Cols("产品图").PictureViewer
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False
fl.AddCommand.Enabled = False
fl.ManagerCommand.Enabled = False
fl.SaveAsCommand.Enabled = False
End Select

仅对右边的列窗口有效,对点击按钮弹出的文件管理窗口无效

--  作者:luckbetter333
--  发布时间:2020/1/16 9:55:00
--  
版主,还是不好用啊,我把表放在窗口里,从窗口打开的表和图片浏览器,是这个原因么?应该怎么办?
--  作者:有点蓝
--  发布时间:2020/1/16 10:06:00
--  
如果在窗口使用,请使用PictureViewer控件:http://www.foxtable.com/webhelp/topics/1894.htm
--  作者:luckbetter333
--  发布时间:2020/1/16 10:12:00
--  
版主,我就是用的这里的代码啊,在帮助文件“设置内置的图片管理器”里的代码。
--  作者:有点蓝
--  发布时间:2020/1/16 10:35:00
--  
控件要用这个:http://www.foxtable.com/webhelp/topics/2286.htm

而不是去设置列的管理器,看懂每个帮助都是针对什么情况使用的

--  作者:luckbetter333
--  发布时间:2020/1/16 10:55:00
--  
亲爱的版主,麻烦明确告诉一下怎么改,我想了半天,还是不知道怎么办。实在不好意思。
--  作者:有点蓝
--  发布时间:2020/1/16 10:58:00
--  
到窗口afterload事件写代码

Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.DeleteCommand.
Visible False
pv.ClearCommand.
Visible = False

--  作者:luckbetter333
--  发布时间:2020/1/16 11:07:00
--  
版主你好,我刚才没说清楚,我没有把图片浏览器做到窗口里,我只是把产品档案这个表做成了窗口。
--  作者:有点蓝
--  发布时间:2020/1/16 11:13:00
--  
我也说的很清楚了:如果在窗口使用,请使用PictureViewer控件:http://www.foxtable.com/webhelp/topics/1894.htm,而不是使用内置的管理窗口