主题：删除行前执行表属性

老师：

删除行事件内，符合条件才允许删除，否则禁止删除，并用MessageBox给预提醒，告诉用户为什么不能删除；

但用户在不知情的情况下，点了批量删除，这样导致每删除一次执行一次，反复弹出提醒的对话框，

如何批量删除时，只提醒用户一次？

例：

If E.DataRow("项目") <> "影响因素" Then
        MessageBox.Show("仅允许删除项目行为影响因素的行,其他行禁止删除~~~","小慧温馨提示")
        e.Cancel = True
        Return
    End If