蓝老师您好！我在自定义用户与权限管理之二的基础上想增加用户角色，在文件“用户.mdb”新建一个名为“Users”的表，在原有Name、Group、Password三列基础上另增加Roles多值列，分别用于保存用户名、用户分组、密码和用户角色，其中Name列设置为主键。

在登录窗口的确定按钮的代码，增加了“_UserRoles = dr("Roles")”即：

Dim UserName As String = e.Form.Controls("UserName").Value

Dim dr As DataRow

If UserName = ""  Then

    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

dr = _UserTable.SQLFind("[Name] = \'" & UserName & "\'")

If dr Is Nothing Then

    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

If e.Form.Controls("PassWord").Value = dr("Password") Then

    _UserName = UserName

    _UserGroup = dr("Group")

    _UserRoles = dr("Roles")

    e.Form.Close

Else

    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

未能成功