以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表格当中几列扩展属性引出的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185067)

--  作者:lhfu
--  发布时间:2023/2/2 15:51:00
--  [求助]表格当中几列扩展属性引出的问题
在表格里,有两列是图片属性,一列是多文件属性,现在有几个问题要向老师请教一下的
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1_202302021451.zip
1、在授权表当中,B2用户对“CK表”只能查看,这就引发了一个问题,A1用户对上传了图片和多个文件后,B2用户是压根打开查看不了的,这个应该怎么设置?
图片点击可在新窗口打开查看
2、在ck表格里,只有开发者、管理员及A1用户对图片管理器、文件管理器有新增、删除、清除功能,而B2用户只能打开查看、缩放和另存功能,这个应该怎么设置的?
图片点击可在新窗口打开查看
这两个问题我在帮助没有找到解决点,请各位老师指导一下,谢谢
[此贴子已经被作者于2023/2/2 15:52:05编辑过]

--  作者:有点蓝
--  发布时间:2023/2/2 16:17:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:lhfu
--  发布时间:2023/2/2 16:48:00
--  
蓝老师,B2用户是只能在列窗口里打开预览了,但返回开发者、A1用户里,列窗口却无法显示预览的,这个应该怎么设置?
--  作者:有点蓝
--  发布时间:2023/2/2 16:58:00
--  
我在代码里加了判断,没有权限就不打开的,如果要所有人都打开,自己去掉这个判断
--  作者:lhfu
--  发布时间:2023/2/2 17:40:00
--  
在表属于AfterSelChange事件这样改,对不对:
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "产品图片", "工程文件_图纸", "工程文件_N文件"
        If DataTables("授权").Find("用户名=\'" & User.Name & "\' and 表名=\'"  & "\' and 不可见=false and 不可编辑=true and (列名 is null  or 列名=\'" & c.Name & "\')") IsNot nothing Then
            Forms(c.Name).Show
        End if
End Select
这样修改时,会出错了 。

--  作者:有点蓝
--  发布时间:2023/2/2 20:01:00
--  
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "产品图片", "工程文件_图纸", "工程文件_N文件"
            Forms(c.Name).Show
End Select

--  作者:lhfu
--  发布时间:2023/2/2 22:49:00
--  
还得慢慢研究一下代码,多谢蓝老师指导