主题：加了授权的代码，还是能看到内容

For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Group & "'" )

改成

For Each dr As DataRow In DataTables("授权表").Select("角色 = '" & User.Roles & "'" )