主题：[求助]撤销和保存的判断

老师，我有个管理员权限，当其他人数据录入，保存后，上报状态为True（窗口事件enter不可编辑）,当数据录入错误，管理员有撤销的权利，撤销后上报状态为False。

因为窗口关闭前有个判断，未保存窗口不能关闭。管理员保存时上报状态也会是True，这个怎么判断：管理员撤销后在保存的这样一种状态，如果是上报状态就为False,否则就为True。

撤销按钮代码：

Dim r As Row = Tables("中标统计").Current
If _UserPost = "管理员" Then
    r("上报状态") = False
Else
End If

保存按钮代码：

Dim a As Row = Tables("中标统计").Current
If Tables("中标统计").current("上报状态") <> True Then  

    a("上报状态") = True
Else
    e.Cancel = True
End If

老师，我这样处理你看有没什么问题：

窗口加载后记录一个变量，afterload，

vars("模式") = "正常"

撤销按钮记录一个变量：

If _UserPost = "管理员" Then
Dim r As Row = Tables("中标统计").Current
    r("上报状态") = False
    Vars("模式")="撤销"
Else
End If

保存按钮：

Dim a As Row = Tables("中标统计").Current
If vars("模式") = "正常" Then
    a("上报状态") = True
End If
If vars("模式") = "撤销" Then
    a("上报状态") = False
End If