主题：审批流程设计相关

老师，我有个审核流程表，结构如下：

此主题相关图片如下：qq截图20200318150427.png

有个测试表，表中有个审批状态列，提交审批后，审批状态 = 审批流程表中的“提交申请状态”

我想做一个通用审批窗口，每次执行审批时，先根据“测试表”中的审批状态，在审批流程表中找到对应的流程，审批完，“测试表”中的审批状态就等于对应审批流程的状态。直到审批状态为审批完成，请老师指教一下应该怎么写通用的“审核窗口”中通过的按钮代码。

老师，表结构我修改了，请老师看看。这个流程我弄完了分享出来，论坛这方面太少了，会做的都不愿意分享出来。

老师，下一步的流程状态怎么写呢？

Dim dr As Row = Tables(vars("editTable")).Current
Dim ds  As  DataRow = DataTables("审核流程表").SQLFind("表名称 = '"& vars("editTable")&"'") '找出编号为03的产品
If ds IsNot Nothing Then  '如果找到的话

    If dr("审批状态") = ds("审核状态") Then
        If _UserPost = ds("二级审核") Then
            msgbox(_UserPost)
            Dim dw As Row = Tables("审核意见表").AddNew()
            dw("表名称")= vars("editTable")
            dw("审核部门")= _UserGroup
            dw("审核人")= _UserXingMing
            dw("审核日期")= Date.Now
            dw("审核意见")= e.Form.Controls("TextBox1").text
            dw("ID")= dr("ID")
            dr("审批状态") = ds("二级审核状态")
        Else
            MessageBox.Show("你没有审核资格","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            e.Cancel = True
        End If
    End If
Else
    MessageBox.Show("该表未加入审批流程,请给管理员联系","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    e.Cancel = True
End If