主题：[求助]根据逻辑列值授权

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

项目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()