主题：退出窗口时 出错了

按钮里代码如下 ，点了后窗口图片没有刷新

If  Tables("进货单").current("单据状态")="已审核"
    messagebox.show("已经审核,不需重复审核","信息提示")
    Return
End If
If  Tables("进货单").Current IsNot Nothing Then
    If Tables("进货单").current("单据状态")="已保存"
        Tables("进货单").current("单据状态")="已审核"
        Tables("进货单").current.save()
        messagebox.show("审核完成","信息提示")
    Else
        messagebox.show("单据未保存 请保存后再审核","信息提示")
    End If
End If