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

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

先load数据，再判断 If r.DataRow.GetChildRows("BUG研发表").Count = 0 Then

或者，用sqlFind先查找 http://www.foxtable.com/help/topics/2911.htm

请大师再帮我瞅瞅。

不绕这些弯路，效果一样：

If Tables("BUG录入表").Current IsNot Nothing    
    Dim r As Row = Tables("BUG录入表").Current  
    Dim dr As DataRow = DataTables("BUG研发表").find("BUG_ID = \'" & r("BUG_ID") & "\'")
    If dr Is Nothing
        dr = DataTables("BUG研发表").AddNew()
    End If
    dr("BUG_ID") = r("BUG_ID")

    dr.save()

    r.save() \'加载父行
    MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG故障已通知研发,请静静的耐心等待研发解决!","博达BUG综合管理系统")
 End If

刚刚少了个右括号，已修改！

Dim dr As DataRow = DataTables("BUG研发表").AddNew()
dr("BUG_ID") = r("BUG_ID")

写到sqlfind判断里面啊。

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

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

报上面的错。