\'添加到待办事项
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 这个呢

什么意思？