ID没生成 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

能不能自己先调试一下，然后给出分析结果做参考？

If dr IsNot Nothing Then '如果找到的话

msgbox(r("ID"))

            If r("ID") Is Nothing Then
                r("审批状态") = dr("审批状态")
                r("登记人") = _UserXingMing
                r("登记日期") = Functions.Execute("服务器时间")
                r("ID")= Guid.NewGuid.TOstring()

msgbox(r("ID"))
                r("登记状态") = True
                r.Save
            Else
                r("审批状态") = dr("审批状态")
                r("登记人") = _UserXingMing
                r("登记日期") = Functions.Execute("服务器时间")
                r("登记状态") = True
                r.Save
            End If

msgbox(r("ID"))
                Dim dw As Row = Tables("审核意见表").AddNew()
                dw("审核部门")= _UserGroup
                dw("审核人")= _UserXingMing
                dw("审核日期")= Date.Now
                dw("审核意见")= "提交审核申请"
                dw("ID")= r("ID")
                dw.Save

msgbox(dw("ID"))
            Return 1 '成功返回标志
        Else
            MessageBox.Show("该表未加入审批流程,请给管理员联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            Return 0
        End If

Dim jg As Integer = Functions.Execute("提交审批申请",r)

msgbox(r("ID"))

主题：ID没生成