For Each c As Winform.Control In e.Form.Controls If Typeof c Is WinForm.button Then If User.IsRole("查看") Then If e.sender.name = "btndyyl" Or e.sender.name = "btnzjdy" Then c.Enabled = True Else c.Enabled = False End If Else c.Enabled = True End If End If