逻辑基本一样
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("类型", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("平台名称")
dtb.AddDef(v, Gettype(string))
Next
dtb.Build()
For Each c As datacol In DataTables("表A").datacols
if c.name <> "平台名称"
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("类型") = dc.name
For Each dr2 As DataRow In DataTables("表A").datarows
dr1(dr2("平台名称")) = dr2(dc.name)
Next
end if
Next
MainTable = Tables("表B")