Dim tb1 As Table = Tables(e.Form.Name & "_Table1")
Dim g As New GroupTableBuilder("社保统计表1", DataTables("年度社保库"))
Dim dt As DataTable
g.Groups.AddDef("年度")
g.Groups.AddDef("月份")
g.Groups.AddDef("缴纳方式")
g.Totals.AddDef("姓名", AggregateEnum.Count, "人数")
g.FromServer = True
dt = g.Build(True)
Dim dtb As New DataTableBuilder("表BB")
dtb.AddDef("年度",Gettype(Integer),10)
dtb.AddDef("月份",Gettype(Integer),10)
For Each v As String In dt.GetValues("缴纳方式")
dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String() In dt.GetValues("年度|月份") 'DataTables("社保统计表1").
Dim dr1 As DataRow = DataTables("表BB").AddNew()
dr1("年度") = v(0)
dr1("月份") = v(1)
For Each dr2 As DataRow In dt.Select("年度 = " & v(0) & " And 月份 = " & v(1))
dr1(dr2("缴纳方式")) = dr2("人数")
Next
Next
DataTables("表BB").DataCols.Add("总数",Gettype(Double),"[标准缴纳] + [公司统缴]")
tb1.DataSource = = dtb.BuildDataSource()
此主题相关图片如下:qq截图20190418133851.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/20194181339193472.png)