主题：[求助]我使用了CaseStudy目录下的文件：自定义用户管理.Table，然后又使用了可视化授权.Table，却不能使用？

[求助]我使用了CaseStudy目录下的文件：自定义用户管理.Table，然后又使用了可视化授权.Table，却不能使用？

却发现 可视化授权设置的用户权限，不能实现管理功能？

求助是那里的问题。

可视化授权默认用的是 User.Name 判断    自定义用户管理用的是全局变量_Username   你看东西不仔细,只是盲目套用,当然是不可以的.

我在项目事件LoadUserSetting中，修改了的。

 

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
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "'" )   'User.Name  修改为  _UserName 了，还是不行的。
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自定义用户的可视化授权.rar

 

我把两个功能合成在一起了。

 

这里不用User，用Username吗？

没有搞明白。

请帮忙修改例子，谢谢！

我使用了狐表里面的两个例子：
自定义用户 和 可视化管理
把这两个功能结合在一起了
却起不到 可视化管理的 效果
请帮忙修改代码
谢谢！

帮助一定要慢慢看,慢慢理解. 不能永远都是盲目套用帮助的代码和别人的代码.  你不尝试去理解它,稍微需求变动一点点,你就傻眼了.

首先谢谢教导，我清楚这个道理，会仔细学习的。

但我不懂老师又把我上传的例子，没有任何修改又传上来是什么意思？

我设置了授权，杨刚，不可见表B，登陆后，还是可见。

 

此主题相关图片如下：qq图片20140219135528.jpg

你打开了错的文件吧

不好意思，是打开错了。谢谢老师。

我能够理解你的恼火，这么简单的问题，我还需要问。

可能是对这些代码接触不久的原因，不太敏感。

不好意思了。

再次谢谢！