代码类似
Dim ls As List(Of String)ls = DataTables("表A").GetValues("第一列")Dim count As Integer = Tables("表B").rows.CountTables("表B").AddNew(ls.Count)For i As Integer = 0 To ls.Count - 1 Tables("表B").Rows(i+count)("第一列") = ls(i)Next