复制到现有行:
for i as as integer = 0 to 49
tables("表B").Rows(i)(b1"") = Tables("表A").Rows(i)("a1")
next
复制到新增行:
Dm r AS datarow = DataTables("表B").Addnew()
r1(b1"") = Tables("表A").Rows(i)("a1")