主题：关于数据同步

你的代码，是根据编号查找修改的。如果你编号没有赋值，或者你修改了编号的值，都有可能导致不同步。

照着这个做 http://www.foxtable.com/webhelp/scr/2490.htm

1、如果编号不存在，你应该addnew新增行的，加上这种代码。

2、本来的代码不需要改。

上传具体实例说明。说明要达到的目的，以及你没有达到的目的。

If e.DataCol.name = "编号" Then
    If e.DataRow("确认推送")=True Then
        Dim nma() As String = {"姓名","编号","第二列","第三列","第四列","第五列"} 'A表数据来源列
        Dim nmb() As String = {"姓名","编号","第二列","第三列","第四列","第五列"}'B表数据接收列
        Dim dr As DataRow = Nothing
       
        If e.oldvalue = Nothing Then
            dr = DataTables("表B").find("编号 = '" & e.NewValue & "'")
        Else
            dr = DataTables("表B").find("编号 = '" & e.oldvalue & "'")
        End If
        If dr Is Nothing Then
            Dim r = Tables("表B").AddNew '已放款添加一行
            r.move(0)
            dr = r.DataRow
        End If
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    End If
   
End If

If e.DataCol.Name <> "确认推送" then

    '本来的赋值代码

End If