做个按钮同步
Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
Dim cr As Row = t1.Current
Dim nr As Row = t2.Current
nr("第一列") = cr("第一列")
nr("第二列") = cr("第二列")