主题：如何让消息提示框只弹出1次

'如果当前用户不是张经理，而且即将被删除的行已经结帐，那么取消删除。
If User.Name <> "张经理" And e.DataRow("结帐") = True Then
    MessageBox.Show("领导说了：已经结帐的行，只有张经理才能删除，别乱来！", "提示")
    e.Cancel = True
End If