[求助]根据逻辑列值授权 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]根据逻辑列值授权

共有1547人关注过本帖树形打印复制链接主题：[求助]根据逻辑列值授权

天一生水

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

加好友

发短信

等级：五尾狐帖子：1140 积分：11255 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]根据逻辑列值授权 发帖心情

Post By：2017/10/10 20:45:00 [显示全部帖子]

根据数据表“计划安排”中的[共享]列的逻辑值，写的代码，没起作用，是什么原因？

项目LoadUserSetting代码：

If User.Name = "AAA" Then                        'AAA可看表所有行数据
    DataTables("计划安排").LoadFilter = ""
Else
    For Each dr As DataRow In DataTables("计划安排").DataRows
        If dr("共享") = True Then                    ’如果[共享]列勾选，本工作组可看
            DataTables("计划安排").LoadFilter = "工作组 = '" & User.group & "'"
        Else                                                   ’否则，只能看[作者]是登录人本人的行
            DataTables("计划安排").LoadFilter = "作者 = '" & User.Name & "'"
        End If
    Next
End If
DataTables("计划安排").Load()