主题：[求助]同步更新遇到困难了

   Dim r As Row = Tables("BUG录入表").Current

 If r.DataRow.GetChildRows("BUG研发表").Count = 0 Then
            Dim dr As DataRow = DataTables("BUG研发表").AddNew()
            dr("BUG_ID") = r("BUG_ID")
            MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG故障已通知研发,请静静的耐心等待研发解决!","博达BUG综合管理系统")
        ElseIf r.DataRow.GetChildRows("BUG研发表").Count > 0  Then
            Dim rr As Row = Tables("BUG录入表").Current
            Dim fl As String = "BUG_ID = '"  & r("BUG_ID") & "'"
            rr.Load() '加载父行
            LockBaseMainForm() '锁定主窗口
            DataTables("BUG研发表").StopRedraw '停止绘制订单明细
            DataTables("BUG研发表").RemoveFor(fl) '移除当前订单的订单明细
            DataTables("BUG研发表").Appendload(fl) '追载当前订单的订单明细
            DataTables("BUG研发表").ResumeRedraw '恢复绘制订单明细
            UnLockBaseMainForm() '解锁主窗口
            MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG故障信息已修改,并通知研发,请静静的耐心等待研发解决!","博达BUG综合管理系统")
        End If

我是按照帮助来做的。可是效果不对。

比如BUG_ID 为201507018的数据。提交后。然后再次在BUG录入表修改BUG_ID201507018的数据，又再次提交。

问题来了，怎么在BUG研发表又增加了一行同样是是BUG_ID为201507018的数据（修改后的），也就是说在BUG研发表存在2个BUG_ID201507018的数据。

本意是希望是同步更新，而不是新增加行。