建议增加一个临时的逻辑列进行勾选,这样就可以直接进行分组统计了。不然要逐行遍历处理,麻烦
if dataTables("窗口1_table1").datacols.contains("a") = false
dataTables("窗口1_table1").datacols.add("a",gettype(boolean))
Tables("窗口1_table1").cols("a").visible=false
end if
For Each r1 As Row In Tables("窗口1_table1").GetCheckedRows
r1("a") = true
Next
Dim b As New GroupTableBuilder("统计表1",DataTables("窗口1_table1"))
第三列 第四列 第五列
b.Groups.AddDef("第一列")
b.Groups.AddDef("第二列")
b.Groups.AddDef("第四列")
b.Groups.AddDef("第五列")
b.Totals.AddDef("第八列")
dim dt as datatable = b.BuilddDataSource '生成统计表
for each r1 as datarow in dt.datarows
Dim r2 As DataRow = DataTables("表B").AddNew
r2("第一列") = r1("第一列")
r2("第二列") = r1("第二列")
r2("第四列") = r1("第四列") & “-” & r1("第五列")
r2("第五列") = r1("第八列")
Next