For Each dr As DataRow In DataTables("授权表").Select("用户分组 = '" & User.Group & "' and 表名 is not null" )