主题：一个类似权限的工作

if  User.Group="普通员工" then
    DataTables("A").LoadFilter ="[用户名]='" & User.Name &"'"
    DataTables("A").Load()

ElseUser.Group="管理者" then 

    dim dr As Datarow

    dr = DataTables("b").Find("用户名= ' & User.Name & "'")

    DataTables("A").LoadFilter ="[部门]='" & dr("部门") &"'"
    DataTables("A").Load()

End IF