[求助]关于授权表的无法隐藏不可见的表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于授权表的无法隐藏不可见的表

共有2596人关注过本帖树形打印复制链接主题：[求助]关于授权表的无法隐藏不可见的表

乡里出城

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00

[求助]关于授权表的无法隐藏不可见的表 发帖心情

Post By：2015/9/13 23:19:00 [显示全部帖子]

在项目属性里，如果对标题采用靠左的话（如图红圈），参考帮助项目的授权表的代码，假如某用户不可见AA表，该用户在标题上是无法显示AA表（如图蓝圈），但在左下角的三角形里（如图黄圈），只要点击三角形就会看到AA表，请问怎么才能解决无法在在三解形里显示这个AA表。

此主题相关图片如下：q3.png

乡里出城

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00

Post By：2015/9/14 11:22:00 [显示全部帖子]

什么意思，怎么应用，我还真不懂，执行了这个代码，结果把授权表都显示出来了

[此贴子已经被作者于2015/9/14 11:24:07编辑过]

乡里出城

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00

Post By：2015/9/14 11:27:00 [显示全部帖子]

For Each t As Table In Tables '显示所有表和列

t.Visible = True

t.AllowEdit = True

For Each c As Col In t.Cols

c.Visible = True

c.AllowEdit = True

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type <> UserTypeEnum.User Then

Return

End If

For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )

If dr.IsNull("列名") Then

For Each t As Table In Tables

If t.DataTable.Name = dr("表名") Then

t.Visible = Not dr("不可见")

t.AllowEdit = Not dr("不可编辑")

End If

Else

For Each t As Table In Tables

If t.DataTable.Name = dr("表名") Then

For Each c As Col In t.Cols

If c.Name = dr("列名") Then

c.Visible = Not dr("不可见")

c.AllowEdit = Not dr("不可编辑")

End If

请教应该怎么改，关键是已经发布的客户端使用啊，客户端不可能执行你那个代码吧

乡里出城

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00

Post By：2015/9/14 11:50:00 [显示全部帖子]

水平低，脑子还不灵活，谢谢了，OK了，只有多点通过案例多动手才能提升

[此贴子已经被作者于2015/9/14 11:51:32编辑过]

乡里出城

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00

Post By：2015/9/14 14:13:00 [显示全部帖子]

还是不行，出现这个问题，而且标题那里显示了很多本应不可见的表

此主题相关图片如下：11.png

下一主题 >> << 上一主题

主题：[求助]关于授权表的无法隐藏不可见的表