for each tr as row in tables("tableA").rows
dim r as row = tables("tableB").addnew
for each tc as col in tables("tableA").cols
r(tc.name) = tr(tc.name)
next