Dim tb As Table = Tables("标录分析_Table3")
Dim g As New GroupTableBuilder("统计表1", DataTables("开标记录B"))
g.Groups.AddDef("开标日期",
DateGroupEnum.Year,
"年")
g.Groups.AddDef("开标日期",
"月")
g.Groups.AddDef("随机摸球法_中标球号")
g.Totals.AddDef("随机摸球法_中标球号",
AggregateEnum.Count,
"记录数")
g.GrandProportion = True
g.Filter = "[随机摸球法_中标球号]
> 0"
tb.DataSource = g.BuildDataSource
tb.Sort = "年,月"
2、
Dim tb3 As Table = Tables("标录分析_Table3")
Dim tb4 As Table = Tables("标录分析_Table4")
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("年",
Gettype(String),
32)
dtb.AddDef("月",
Gettype(String),
32)
For Each nm As String In tb3.DataTable.GetValues("随机摸球法_中标球号")
dtb.AddDef(nm, Gettype(Double))
Next
dtb.Build()
For Each nm As String() In tb3.DataTable.GetValues("年|月")
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("年")
= nm(0)
dr1("月")
= nm(1)
For Each dr2 As DataRow In tb3.DataTable.Select("年 = '"
& nm(0) & "' And 月 = '" & nm(1) & "'")
dr1(dr2("随机摸球法_中标球号")) = dr2("记录数")
Next
Next
tb4.DataSource = dtb.BuildDataSource
此主题相关图片如下:qq截图20180730224945.png
![dvubb 按此在新窗口浏览图片](UploadFile/2018-7/20187302249786449.png)