Dim g As new SqlGroupTableBuilder("隐患统计表",DataTables("隐患排查治理台账"))
G.filter = “年度 = '" & Date.today.year & "'”
g.Groups.AddDef("企业名称","企业名称")
g.Groups.AddDef("月度","月度")
g.Totals.AddExp("一般事故隐患","iif(隐患分级 = '一般事故隐患',1,0)") '添加列用于统计
g.Totals.AddExp("重大事故隐患","iif(隐患分级 = '重大事故隐患',1,0)") '添加列用于统计
Dim dtx As DataTable = g.Build(True)