用代码处理
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("第一列", Gettype(String), 32)
dtb.AddDef("第二列", Gettype(String), 999)
dtb.Build()
Dim dt As DataTable = DataTables("统计")
For Each s As String In DataTables("表A").GetValues("第一列")
Dim ndr As DataRow = dt.AddNew
ndr("第一列") = s
ndr("第二列") = DataTables("表A").GetComboListString("第二列", "第一列 = '" & s & "'").replace("|", ",")
Next