Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问怎样能实现分权限隐藏列呢？


  共有3459人关注过本帖树形打印复制链接

主题：[求助]请问怎样能实现分权限隐藏列呢？
美女呀，离线，留言给我吧！
rophy0952
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		[求助]请问怎样能实现分权限隐藏列呢？  发帖心情 Post By：2014/11/18 22:40:00 [显示全部帖子]

想设定除张三或李四外，不显示表A的B列。
我在afterload的表事件中输入代码，但不起作用，请问哪里出错呢？


If _username = "张三"  OrElse _username = "李四"  Then
Tables("表A").Cols("B").Visible = True
Else
Tables("表A").Cols("B").Visible = False
End If
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/11/18 23:03:00 [显示全部帖子]

在Afteropenproject事件中，录入如下代码，然后按照非张三及李四的用户名进入时，“采购报价表”仍显示想要隐藏的列，“采购明细表”已经不显示了，请问是何情况呢？
If _Username = "张三" OrElse _Username = "李四" Then
Tables("采购报价表").Cols("单价1").Visible = True
Tables("采购明细表").Cols("单价1").Visible = True
Tables("采购明细表").Cols("金额1").Visible = True
Else
Tables("采购报价表").Cols("单价1").Visible = False
Tables("采购明细表").Cols("单价1").Visible = False
Tables("采购明细表").Cols("金额1").Visible = False
End If
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/11/18 23:19:00 [显示全部帖子]

看过了，没有问题呢。除了张三和李四，我随便找哪个应该都可以啊，但不知为什么，一个表可以，一个表不可以
[此贴子已经被作者于2014-11-18 23:20:19编辑过]
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/11/19 9:15:00 [显示全部帖子]

我刚才找到原因了，但不知如何解决才好呢？应该是因为窗口表控件中“作为副表”的属性设为“true”了，如果改成“false”就可以了。但是改成false以后，窗口afterload的代码（如下），又无法运行了。请问这是怎么回事呢？
“Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("采购报价信息_采购报价表") '指定绑定表
rgd.Build()”
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/11/19 9:18:00 [显示全部帖子]

我将gd.Table = Tables("采购报价信息_采购报价表")改成gd.Table = Tables("采购报价表")了，目前可以用，不知会不会有其它问题出现？

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/11/19 9:54:00 [显示全部帖子]

那该如何处理为好呢？

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/11/19 10:30:00 [显示全部帖子]

哦，对。一下子被绕了进去，谢谢有点甜！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询