主题：帮我看一下哪里出问题了 点取消还是会保存“批准”

If Tables("投标报销").Current("状态") = "已付款"  Then
    MessageBox.show("已完成报销,无需审批!")
Else
    If _Username = "顺" OrElse _UserName = "勇" Then
        If Tables("投标报销").current.IsNull("审核人") Then
            MessageBox.Show("不能批准还未通过审核的行.")
        Else
            Dim Result As DialogResult
            Result = MessageBox.Show("确定审批通过吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.Yes Then
                Tables("投标报销").Current("审批人") = _UserName
                Tables("投标报销").Current("批准否") = "批准"
                Tables("投标报销").Current("审批时间") = Date.now()
                If Tables("投标报销").Current("状态")="上报" Then
                    Tables("投标报销").Current("状态")="已审批"
                End If
                Tables("投标报销").Current.Save()
                MessageBox.Show("已审批","提示")
            Else
                MessageBox.Show("退回成功!","提示")
            End If
        End If
    Else
        MessageBox.show("你无审批权限!")
    End If
End If

建议好好看一下流程语句这一章：

http://www.foxtable.com/webhelp/scr/0223.htm