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

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

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

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