VB Code:
'Display current user data when user ID is not 0
If UserId <> 0 Then
Dim objUser As BusinessLogicLayer.Users = Users.GetUserById(UserId)
intId.Text = Convert.ToString(objUser.Id)
intId.Enabled = False
txtUsername.Text = objUser.Username
dropRoles.SelectedValue = objUser.GroupId [B]'in this line error comes; value is taken correctly that's "adm02" [/B]
dropBranch.SelectedValue = objUser.BranchId
If String.Compare(User.Identity.Name, objUser.Username, True) = 0 Then
IsCurrentUser = True
End If