[求助]同步两个表的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

A表是基本表，没有重复数据，B表是基于A表所有字段后加了几个字段构成的表，A表的内容改动后，如何同步到B表。

在B表的窗体加同步按钮代码如下：

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim sCols() As String = {"xingming","xingbie","sfzhm","minzu","year","beizhu"}

Dim dCols() As String = {"xingming","xingbie","sfzhm","minzu","year","beizhu"}

dt = DataTables("A表")

For Each dr As DataRow In dt.DataRows

If DataTables("B表").Find("sfzhm= '" & dr("sfzhm") & "'") Is Nothing Then

Dim nr As DataRow = DataTables("xszzbb").AddNew()

For i As Integer =0 To sCols.Length -1

nr(dCols(i)) = dr(sCols(i))

Else

Dim nr As DataRow = DataTables("B表").Find("sfzhm= '" & dr("sfzhm") & "'")

For i As Integer =0 To sCols.Length -1

nr(dCols(i)) = dr(sCols(i))

End If

这个对于B表没有重复数据是有效的，有重复数据就没有用了，请问下改如何写同步代码。

主题：[求助]同步两个表的数据