主题：整体复制表，修改原表后，复制表不是修改，而是新添加一行，如何调整？

If e.DataCol.name = "项目id" Then
    e.DataRow.save
    systemready = False
    Dim Cols7() As String ={"技术措施ID","措施名称","单位","数量","单价","金额","项目ID"}
    Dim Cols8() As String ={"技术措施ID","措施名称","单位","数量","单价","金额","项目ID"}
    For Each dr1 As DataRow In DataTables("技术措施费").Select("项目ID= '" & e.DataRow("项目ID") & "'")
        Dim dr2 As DataRow = DataTables("措施明细").find("项目ID= '" & dr1("项目ID") & "' and 技术措施ID= '" & dr1("技术措施ID") & "'")
        If dr2 Is Nothing Then dr2 = DataTables("措施明细").AddNew()
        For i As Integer = 0 To Cols7.Length -1
            dr2(Cols8(i)) = dr1(Cols7(i))
        Next
        dr2("统计id") = e.DataRow("_Identify")
    Next
    systemready = True
End If