以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  备注列权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99881)

--  作者:cd_tdh
--  发布时间:2017/4/28 15:20:00
--  备注列权限

大师,备注列扩展为图片后,增加、打开、删除、清除、管理的权限怎么写,写到哪儿啊?


--  作者:有点色
--  发布时间:2017/4/28 15:28:00
--  

 无法单独控制各个按钮的,你可以把一些按钮隐藏

 

http://www.foxtable.com/webhelp/scr/2286.htm

 

http://www.foxtable.com/webhelp/scr/2470.htm

 


--  作者:cd_tdh
--  发布时间:2017/4/28 16:01:00
--  
代码是写DataColChanging还是AfterLoad,里面呢,没作用呢。
--  作者:有点色
--  发布时间:2017/4/28 16:09:00
--  
以下是引用cd_tdh在2017/4/28 16:01:00的发言:
代码是写DataColChanging还是AfterLoad,里面呢,没作用呢。

 

如果你是点 ... 按钮弹出的窗口,这个无法设置;

 

如果你是绑定pictureViewer控件的方式,你可以在AfterLoad事件处理;

 

点击 ... 按钮的时候,你可以不使用默认的窗口,你可以弹出你设计的一个窗口嘛。


--  作者:cd_tdh
--  发布时间:2017/4/28 16:27:00
--  

色大师,我的是这样的,缩略图列(备注扩展图片列)是只有_userGroup=总公司经营部可以编辑,窗口里面是没有绑定该列,我是想控制列窗口的中几个按钮的权限,代码放哪儿?


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170428162855.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/4/28 16:29:59编辑过]

--  作者:有点色
--  发布时间:2017/4/28 16:42:00
--  

 如果要控制列窗口的,你代码要写到 LoadUserSetting或者是AfterOpenPorject事件里。

 

http://www.foxtable.com/webhelp/index.htm?page=2470.htm

 


--  作者:cd_tdh
--  发布时间:2017/4/28 16:48:00
--  
以下是引用有点色在2017/4/28 16:42:00的发言:

 如果要控制列窗口的,你代码要写到 LoadUserSetting或者是AfterOpenPorject事件里。

 

http://www.foxtable.com/webhelp/index.htm?page=2470.htm

 

谢谢色大师,我想现在的处理方法是:在该表的主窗口里面增加一个pictureViewer控件,绑定到该图片列,然后把控件隐藏,把代码写到主窗口的AfterLoad里面,效果倒是暂时达到了,但是不晓得有没什么隐患,先试试看了。


--  作者:有点色
--  发布时间:2017/4/28 16:50:00
--  
以下是引用cd_tdh在2017/4/28 16:48:00的发言:

谢谢色大师,我想现在的处理方法是:在该表的主窗口里面增加一个pictureViewer控件,绑定到该图片列,然后把控件隐藏,把代码写到主窗口的AfterLoad里面,效果倒是暂时达到了,但是不晓得有没什么隐患,先试试看了。

 

你直接写代码不行?写在任意可以触发的事件?

 

Dim fl As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
fl.DeleteCommand.Enabled =
False
fl.ClearCommand.Enabled =
False


--  作者:cd_tdh
--  发布时间:2017/4/28 17:04:00
--  
为毛我写哪儿都要在点一次表属性,关一次列窗口在打开后才生效??????
--  作者:有点色
--  发布时间:2017/4/28 17:07:00
--  
以下是引用cd_tdh在2017/4/28 17:04:00的发言:
为毛我写哪儿都要在点一次表属性,关一次列窗口在打开后才生效??????

 

8楼的代码,只要你的列窗口是在打开的状态,执行过一遍,就肯定生效

 

Tables("表A").Cols("第十列").OpenWindow
Dim fl As WinForm.PictureViewer = Tables("表A").Cols("第十列").PictureViewer
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False