这个意思?
Dim values As new List(of String)
values = DataTables("叠加").GetValues("电话号码")
Dim dtb As New DataTableBuilder("整合")
dtb.AddDef("电话号码", Gettype(String), 32)
dtb.Build()
MainTable= Tables("整合")
Dim i As Integer = values.Count
For Each value As String In values
Dim r As Row = Tables("整合").AddNew()
r("电话号码") = value
Next