1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Protected Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim checkbox1 As CheckBox = CType(sender, CheckBox)
Dim grid As GridViewRow = CType(checkbox1.NamingContainer, GridViewRow)
Dim label2 As Label = grid.FindControl("Username")
Dim username As String = label2.Text
Dim curentrolename As String = dpdw_role.SelectedItem.ToString
Select Case Roles.IsUserInRole(username, curentrolename) = True
Case True
Roles.RemoveUserFromRole(username, curentrolename)
Case False
Roles.AddUserToRole(username, curentrolename)
End Select
End Sub |
Partager