用户权限设置通过关联还可以看到关联项目该怎么做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户权限设置通过关联还可以看到关联项目该怎么做

共有2336人关注过本帖树形打印复制链接主题：用户权限设置通过关联还可以看到关联项目该怎么做

123456789赫力

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

加好友

发短信

等级：婴狐帖子：30 积分：397 威望：0 精华：0 注册：2016/8/15 10:15:00

用户权限设置通过关联还可以看到关联项目该怎么做 发帖心情

Post By：2017/2/27 15:01:00 [只看该作者]

用户权限设置通过关联还可以看到关联项目该怎么做
图片点击可在新窗口打开查看

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/2/27 15:51:00 [只看该作者]

设置权限代码里，增加代码同时设置隐藏关联表

For Each t As Table In Tables
    If t.Name.EndsWith(".订单明细表") Then
        t.Visible = False
        Exit For
    End If
Next

123456789赫力

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

加好友

发短信

等级：婴狐帖子：30 积分：397 威望：0 精华：0 注册：2016/8/15 10:15:00

Post By：2017/2/27 15:55:00 [只看该作者]

For Each t As Table In Tables
    If t.Name.EndsWith(".订单明细表") Then
        t.Visible = False
        Exit For
    End If
Next

这段代码写在哪里?

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/2/27 16:04:00 [只看该作者]

原来设置用户权限的事件里。

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            For Each t As Table In Tables
                If t.Name.EndsWith("." & dr("表名")) Then
                    t.Visible = Not dr("不可见")
                    Exit For
                End If
            Next
            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

http://www.foxtable.com/webhelp/scr/1600.htm

123456789赫力

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

加好友

发短信

等级：婴狐帖子：30 积分：397 威望：0 精华：0 注册：2016/8/15 10:15:00

Post By：2017/3/20 15:26:00 [只看该作者]

Tables("user").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

For Each dr As DataRow In DataTables("user").Select("分组名 = '" & User.Group & "'" )

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

这是我们原来的代码,您能根据这个帮我们重写下不,谢谢!(我没有授权表)您给的代码也解决不了原有问题

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/20 15:48:00 [只看该作者]

Tables("user").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("user").Select("分组名 = '" & User.Group & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
            For Each t As Table In Tables
                If t.Name.EndsWith("." & dr("表名")) Then
                    t.Visible = Not dr("不可见")
                    t.AllowEdit = Not dr("不可编辑")
                    Exit For
                End If
            Next
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            For Each t As Table In Tables
                If t.Name.EndsWith("." & dr("表名")) AndAlso t.cols.Contains(dr("列名")) Then
                    t.Cols(dr("列名")).Visible = Not dr("不可见")
                    t.Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
                End If
            Next
        End If
    Next
End If