主题：[求助]使用角色进行可视化授权

    For Each ds In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
将用户组改成用户名后面的改成name,如下

    For Each ds In DataTables("授权表").Select("用户名 = '" & _UserName & "'" )
前提你授权表里要有用户名这一列。