专家坐堂-帮我看一下哪里出问题了点取消还是会保存“批准”Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮我看一下哪里出问题了点取消还是会保存“批准”  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90902)

--  作者：zoyong
--  发布时间：2016/9/24 17:57:00
--  帮我看一下哪里出问题了点取消还是会保存“批准”

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

[此贴子已经被作者于2016/9/24 17:57:06编辑过]

--  作者：狐狸爸爸
--  发布时间：2016/9/24 18:24:00
--
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("审批人") = _UserName1
                Tables("投标报销").Current("批准否") = "批准"
                Tables("投标报销").Current("审批时间") = Date.now()
                If Tables("投标报销").Current("状态")="上报" Then
                    Tables("投标报销").Current("状态")="已审批"
                End If
                Tables("投标报销").Current.Save()
                MessageBox.Show("已审批","提示")
            End If
        Else
            MessageBox.Show("退回成功!","提示")
        End If
    Else
        MessageBox.show("你无审批权限!")
    End If
End If

--  作者：zoyong
--  发布时间：2016/9/25 8:31:00
--
编译错误

--  作者：狐狸爸爸
--  发布时间：2016/9/25 9:13:00
--

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