以下代码执行时,秘书长可以进入,而中心委员会 不能进入,代码如何修改请指教!
If User.IsRole("秘书长") OrElse User.IsRole("中心委员会") Then
MainTable = Tables("aaa")
Tables("aaa").Filter=""
DataTables("aaa").AllowEdit=True
If MessageBox.Show("是否删除之前的通知内容?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim dt As DataTable = DataTables("aaa")
dt.DataRows.Clear
End If
Else
MessageBox.Show("你无权发布通知!")
End If