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

措施明细表（统计表子表）是用代码整体复制技术措施费表（工程项目子表），当我发现技术措施费表单价错误进行修改后，措施明细表自动添加一条记录，是技术措施费中新修改的单价，不知如何修改

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成本测算 - 171129 - 副本.rar

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