参考:
http://www.foxtable.com/help/topics/1597.htm
With Tables("表A") For i as Integer = .TopPosition To .BottomPosition
Dim dr As Datarow = Tables("表B").AddNew() dr("单1") = .Rows(i)("列1")
dr("单2") = .Rows(i)("列2") dr("单3") = .Rows(i)("列3") NextEnd With