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