- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]可视化授权表中一个单元格中设置多列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20465)
-- 发布时间：2012/6/9 16:19:00
-- [求助]可视化授权表中一个单元格中设置多列
此主题相关图片如下：授权表.jpg
“列名”列 一个单元格中能否设置多个列名，不然我针对一个用户要设置N个列太麻烦了
-- 发布时间：2012/6/9 16:29:00
--
可以，但不可行。
-- 发布时间：2012/6/9 16:38:00
--
why？
-- 发布时间：2012/6/9 16:59:00
--
可以的,代码给你:
For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )
If dr.IsNull("列名") Then
Tables(dr("表名")).Visible = Not dr("不可见")
Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
Else
Dim nms() As String = dr("列名").Split(",")
For Each nm As String In nms
Tables(dr("表名")).Cols(nm).Visible = Not dr("不可见")
Tables(dr("表名")).Cols(nm).AllowEdit = Not dr("不可编辑")
Next
End If
Next
-- 发布时间：2012/6/9 17:03:00
--
谢谢
不过不是要代码，
是表格里
用户名 列名 可见
张三 第一列，第二列
这个意思，列名的这一个单元格里能不能一次性写N个列，如何写
-- 发布时间：2012/6/9 17:30:00
--
不懂你的意思?
-- 发布时间：2012/6/9 19:52:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:可视化授权.table |
代码给的意思就是的呀.
-- 发布时间：2012/6/10 15:01:00
--
哦 看懂了 开始没注意到
Dim nms() As String = dr("列名").Split(",")
这一行，要的就是这个，我说怎么用逗号隔开列名没有用呢