主题：[求助]代码如何修改请指教?

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