主题：ID没生成

老师，我内部函数代码是这样：

Dim r As Row = args(0)             '当前行
Dim name As String = r.Table.Name  '当前表名称
If r("审批状态") <> "已审批完成" Then
    If r("登记状态") <> True Then
        Dim dr  As  DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & name & "' and 流程编号 = 1 ")
        If dr IsNot Nothing Then  '如果找到的话
            If r("ID") Is Nothing Then
                r("审批状态") = dr("审批状态")
                r("登记人") = _UserXingMing
                r("登记日期") = Functions.Execute("服务器时间")
                r("ID")= Guid.NewGuid.TOstring()
                r("登记状态") = True
                r.Save
            Else
                r("审批状态") = dr("审批状态")
                r("登记人") = _UserXingMing
                r("登记日期") = Functions.Execute("服务器时间")
                r("登记状态") = True
                r.Save
            End If
                Dim dw As Row = Tables("审核意见表").AddNew()
                dw("审核部门")= _UserGroup
                dw("审核人")= _UserXingMing
                dw("审核日期")= Date.Now
                dw("审核意见")= "提交审核申请"
                dw("ID")= r("ID")
                dw.Save
            Return 1  '成功返回标志
        Else
            MessageBox.Show("该表未加入审批流程,请给管理员联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            Return 0
        End If
    Else
        MessageBox.Show("该条记录已提交审批,如需修改,联系主管部门驳回申请!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        Return 0
    End If
Else
    MessageBox.Show("该条记录已审批完成,请勿重复操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return 0
End If

保存按钮代码如下：

Dim r As Row = Tables(Vars("text")).Current
If r IsNot Nothing Then
    Dim jg As Integer = Functions.Execute("提交审批申请",r)
Else
    MessageBox.Show("错误")
End If

我保存后，ID没生成是什么问题呢？