主题：偶尔出现同步更新待办不成功

'添加到待办事项
S  elect Case e.DataCol.Name
    C  ase  "审批状态","ID"
        If e.DataRow("审批状态") <> "已审批完成"  AndAlso e.DataRow("审批状态") <> ""  AndAlso e.DataRow("ID") <> "" Then
            Dim nma() As String = {"审批状态","ID"} 'A表数据来源列
            Dim nmb() As String = {"审批状态","ID"} 'B表数据接收列
            Dim dr As DataRow = DataTables("待办事项").SQLFind("ID = '" & e.DataRow("ID") & "'")
            If dr Is Nothing Then  '如果没有找到
                dr=DataTables("待办事项").AddNew()
                dr("所属机构") = _UserPart
                dr("表名") = 
                dr("页签名")= 
                dr("更新日期")= Data.Now
                For i As Integer = 0 To nma.Length - 1
                    dr(nmb(i)) = e.DataRow(nma(i))
                Next
            Else
                Dim Filter As String = "ID = '" & e.DataRow("ID") & "'"
                Dim drs  As  List(Of DataRow) =  DataTables("待办事项").S elect(Filter)
                For Each ds  As  DataRow  In drs
                    ds(e.DataCol.Name) = e.NewValue
                Next
            End If
            DataTables("待办事项").save
        Else
            DataTables("待办事项").sq   lDeletefor("ID = '" & e.DataRow("ID") & "'")
            DataTables("待办事项").s  ave
        End If
End S  elect

第一次添加到待办事项后，后面只需要更新审批状态列，意思是直接用find，找到后直接更新审批状态，不用S elect，这样写就行了哇？

            End If

以前还不是很清楚逻辑的时候弄的，那这儿该写成这样：dr("审批状态") = e.DataRow("审批状态")，还是写成这样： dr("审批状态") = e.NewValue 这个呢

什么意思？

审批表的DataColChanged事件代码：

Select Case e.DataCol.Name
    Case  "审批状态","ID"
        If e.DataRow("审批状态") <> "已审批完成"  AndAlso e.DataRow("审批状态") <> ""  AndAlso e.DataRow("ID") <> "" Then
            Dim nma() As String = {"审批状态","ID"} 'A表数据来源列
            Dim nmb() As String = {"审批状态","ID"} 'B表数据接收列
            Dim dr As DataRow = DataTables("待办事项").SQLFind("ID = '" & e.DataRow("ID") & "'")
            If dr Is Nothing Then  '如果没有找到
                dr=DataTables("待办事项").AddNew()
                dr("所属机构") = e.DataRow("所属机构")
                dr("表名") = "外经证申请"
                dr("页签名") = "外经证申请"
                dr("更新日期") = Date.Now
                For i As Integer = 0 To nma.Length - 1
                    dr(nmb(i)) = e.DataRow(nma(i))
                Next
            Else
                dr("审批状态") = e.DataRow("审批状态")
            End If
            DataTables("待办事项").save
        Else
            DataTables("待办事项").sqlDeletefor("ID = '" & e.DataRow("ID") & "'")
            DataTables("待办事项").save
        End If
End Select

有个通用的审批窗口，审批后提交下一级审批，把审批表的审批状态更新到“待办事项” 表，审批表的状态是按照“审核流程表”的流程来判断的，审批表的“审批状态”更新了没问题，但是审批表的的审批状态没有更新到“待办事项”表对应的ID行的“审批状态”