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

   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的数据。

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

请大师再帮我瞅瞅。

程老师，你这个好像只能对BUG录入表的数据生效。但是BUG研发表的数据并没有修改，还是之前的。

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2014.11.11.1
错误所在事件：
详细错误信息：
列“_Identify”被约束为是唯一的。值“28”已存在。

报上面的错。

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

点击浏览该文件:临时版本跟踪系统1225.rar

密码liujy。

在BUG录入系统界面。代码在提交按钮里面。

步骤，第一次正常提交。完了后点击修改，随便改某一个列的值，再次提交。就出险这个错误了。

奇怪了。我重新打开项目。也确实没有报错。

但是发现BUG研发表的数据没有同步更新（同一个BUG_ID）

好像没用。

就是在BUG录入表改了一列的值，但是在BUG研发表这一列的值并没有同步修改过来。

BUG录入表的改了。BUG研发表的没有改。

你可以测试一下。