| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]权限问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80349) |
| -- 作者：why305 -- 发布时间：2016/1/21 9:36:00 -- [求助]权限问题 如何设置用户权限只看一张表，并且这张表关联的其他的表也看不见。 |
| -- 作者：大红袍 -- 发布时间：2016/1/21 9:38:00 -- 把所有表隐藏即可。
Tables("表A").visible = true Tables("表B").visible = false Tables("表A.表B").visible = false |
| -- 作者：大红袍 -- 发布时间：2016/1/21 9:38:00 -- http://www.foxtable.com/help/topics/1600.htm
|
| -- 作者：why305 -- 发布时间：2016/1/21 9:41:00 -- 谢谢老师 |
| -- 作者：why305 -- 发布时间：2016/1/21 9:45:00 -- |
| -- 作者：大红袍 -- 发布时间：2016/1/21 9:49:00 -- 帮助文档里的。一列，添加一行数据。 |
| -- 作者：why305 -- 发布时间：2016/1/21 9:51:00 -- 以下是引用大红袍在2016/1/21 9:49:00的发言：
帮助文档里的。一列，添加一行数据。 噢，谢谢老师，我先去写写。希望成功。 |
| -- 作者：大红袍 -- 发布时间：2016/1/21 9:51:00 -- 用一行也可以，代码要改。用逗号分隔各列，如 第一列,第二列,第三列
Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
改成
For Each c As String in dr("列名").Split(",") Tables(dr("表名")).Cols(c).Visible = Not dr("不可见") Next |
| -- 作者：why305 -- 发布时间：2016/1/21 10:16:00 -- 授权表需要改么 |
| -- 作者：大红袍 -- 发布时间：2016/1/21 10:17:00 -- 不需要改，有多少列，就写多少列 第一列,第二列,第三列 |