做一个计划管理,输入代码
http://www.foxtable.com/help/topics/0657.htm
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name = "Class185" AndAlso user.Type = UserTypeEnum.Administrator Then
'For Each c As object In frm.controls
'output.show(c.name & c.text)
'Next
frm.controls("btnDelete").enabled = False
frm.controls("btnAdd").enabled = False
End If
End If