主题：[求助]控件执行命令修改

此主题相关图片如下：项目录入窗口.jpg

图中的“撤销修改”控件的执行命令，如何禁止对项目分配和项目查询的执行？

Dim Result As DialogResult
Result = MessageBox.Show("确定要撤销修改吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("经营总表").Current.Reject() '撤销编辑
    Tables("经营总表").Current("编辑者") = Nothing
    Tables("经营总表").Current.Save()
    e.Form.Close()   
Else
    Return
End If

StatusBar.Message2 = ""