呵呵,木华代码有个小问题,应该:
For Each r As Row In Tables("表A").Rows
Dim rb As Row = Tables("表B").AddNew() For Each c As Col In Tables("表A").Cols rb(c.Name) = r(c.Name) NextNext