Dim t As Table = Tables("窗口3_table1")
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("内容", Gettype(String))
dtb.AddDef("拼音", Gettype(String))
t.DataSource =dtb.BuildDataSource
Dim Lst As New List(Of String)
For Each dr As DataRow In DataTables("表A").Select("")
lst.Add(dr("型号") & "|" & dr("拼音"))
Next
For Each dr As DataRow In DataTables("表B").Select("")
lst.Add(dr("名称") & "|" & dr("拼音"))
Next
For Each nm As String In lst
Dim ss() As String = nm.Split("|")
Dim r As Row = t.addnew
r("内容") = ss(0)
r("拼音") = ss(1)
Next