- 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)
-- 发布时间：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 |
-- 发布时间：2023/2/2 16:48:00
--
蓝老师，B2用户是只能在列窗口里打开预览了，但返回开发者、A1用户里，列窗口却无法显示预览的，这个应该怎么设置？
-- 发布时间：2023/2/2 16:58:00
--
我在代码里加了判断，没有权限就不打开的，如果要所有人都打开，自己去掉这个判断
-- 发布时间：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
-- 发布时间：2023/2/2 22:49:00
--
还得慢慢研究一下代码，多谢蓝老师指导