主题：求助！

> =

Dim dr1 As Row =  Tables("表A").Current
Dim dr2 As Row = Tables("表B").Addnew()
For Each dc As Col in Tables("表B").Cols
    dr2(dc.name) = dr1(dc.name)
Next
Tables("表A").Current.Delete

< =

Dim dr1 As Row =  Tables("表B").Current
Dim dr2 As Row = Tables("表A").Addnew()
For Each dc As Col in Tables("表A").Cols
    dr2(dc.name) = dr1(dc.name)
Next
Tables("表B").Current.Delete

后两个不删除原数据，而且是反复的，那不是数据在反复增加中？