Dim r1 As Row = Tables("表1").Current
Dim r2 AS Row = Tables("表2").AddNew()
r2("列1") = r1("列1")
r2("列2") = r1("列2")
r2("列3") = r1("列3")