主题：作废后代办事项

老师，以下代码在窗口的按钮中，作废后待办事项该条数据还在，那儿问题呢？

Dim r As Row = Tables(Vars("text")).Current
Dim dr1  As  DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text")  & "' and 审批状态='" & r("审批状态") & "'")
Dim dr2  As  DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text")  & "' And 流程编号> '" & dr1("流程编号") & "'","流程编号")
If _UserPost = dr2("审核人角色") Then
    Dim dt As DataTable = DataTables("待办事项")
    Dim dr As DataRow = dt.SQLFind("ID = '" & r("ID") & "'")
    If dr IsNot Nothing Then '如果找到的话
        Dim Result1 As DialogResult
        Result1 = MessageBox.Show("作废后该订单将从代办事项中删除,你确定作废吗?!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result1 = DialogResult.Yes  Then
            dr.Delete
            dt.Save
            Dim st As String = e.Form.Controls("TextBox1").text
            If st IsNot Nothing Then
                r("审批状态") = "作废"
                r.Save
                Dim dw As Row = Tables("审核意见表").AddNew()
                dw("表名称")= Forms("主窗口").Controls("TabControl1").SelectedPage.name
                dw("审核部门")= _UserPost
                dw("审核人")= _UserXingMing
                dw("审核日期")= Functions.Execute("服务器时间")
                dw("审核意见")= st
                dw("ID")= r("ID")
                dw.Save
            Else
                MessageBox.Show("作废原因不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
                Return
            End If
        End  If
    End If
Else
    MessageBox.Show("你没有作废权限,请联系审批状态的审批人作废!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    e.Form.Controls("TextBox1").text = Nothing
    Return
End  If

同步了当前表或是重新加载那条记录还是存在

测试过，ID是一样的，用的GUIG，这样就没问题

Dim r As Row = Tables(Vars("text")).Current
Dim dr1  As  DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text")  & "' and 审批状态='" & r("审批状态") & "'")
Dim dr2  As  DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text")  & "' And 流程编号> '" & dr1("流程编号") & "'","流程编号")
If _UserPost = dr2("审核人角色") Then
    Dim Result1 As DialogResult
    Result1 = MessageBox.Show("作废后该订单将从代办事项中删除,你确定作废吗?!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result1 = DialogResult.Yes  Then
        Dim st As String = e.Form.Controls("TextBox1").text
        If st IsNot Nothing Then
            r("审批状态") = "作废"
            r.Save
            Dim dw As Row = Tables("审核意见表").AddNew()
            dw("表名称")= Forms("主窗口").Controls("TabControl1").SelectedPage.name
            dw("审核部门")= _UserPost
            dw("审核人")= _UserXingMing
            dw("审核日期")= Functions.Execute("服务器时间")
            dw("审核意见")= st
            dw("ID")= r("ID")
            dw.Save
            Dim dt As DataTable = DataTables("待办事项")
            dt.sqlDeletefor ("ID = '" & r("ID") & "'")
            dt.save
        Else
            MessageBox.Show("作废原因不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            Return
        End If
    End  If
Else
    MessageBox.Show("你没有作废权限,请联系审批状态的审批人作废!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    e.Form.Controls("TextBox1").text = Nothing
    Return
End  If