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

审批表的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行的“审批状态”

            Else
                dr("审批状态") = e.DataRow("审批状态")

我最后直接保存了“待办事项”表啊？这样保存有问题吗？

SQLFind的结果是独立的行，和原表没有关系