主题：统计列字符合并为一行

参考代码

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("第一列", Gettype(String), 32)
dtb.AddDef("第二列", Gettype(String), 32)
dtb.AddDef("第三列", Gettype(String), 32)
dtb.Build
Dim dt_s As DataTable = DataTables("表A")
Dim dt_d As DataTable = DataTables("统计")
For Each s As String In dt_s.GetValues("第一列")
    Dim ndr As DataRow = dt_d.AddNew
    ndr("第一列") = s
    ndr("第二列") = dt_s.GetComboListString("第二列", "第一列='" & s & "'").replace("|", ",")
    ndr("第三列") = ndr("第二列").split(",").length
Next