Dim TB2 As Table = Tables("幼儿园信息_table2")
Dim g As New sqlGroupTableBuilder("yeyxm","幼儿园基本情况表")
g.Connectio
If js.Contains("区业务主管")= False
g.Filter="所属中心校='" & sszxx & "'"
End If
g.Groups.AddDef("所属中心校","所属中心校")
'g.Totals.AddExp("公办_所数","case when 性质 ='公办' then 1 else 0 end")
'g.Totals.AddExp("公办_班数","case when 性质 ='公办' then 班数 else 0 end")
''
tb2.DataSource = g.BuildDataSource()
tb2.DataTable.DataCols.Add("公办_所数",Gettype(Integer))
tb2.DataTable.DataCols.Add("公办_班数",Gettype(Integer))
tb2.DataTable.DataCols.Add("公办_人数",Gettype(Integer))
tb2.DataTable.DataCols.Add("民办_所数",Gettype(Integer))
tb2.DataTable.DataCols.Add("民办_班数",Gettype(Integer))
tb2.DataTable.DataCols.Add("民办_人数",Gettype(Integer))
tb2.DataTable.DataCols.Add("公民办合计_所数",Gettype(Integer))
tb2.DataTable.DataCols.Add("公民办合计_班数",Gettype(Integer))
tb2.DataTable.DataCols.Add("公民办合计_人数",Gettype(Integer))
For Each r As Row In tb2.Rows
r("公办_所数")=DataTables("幼儿园基本情况表").SQLCompute("Count(性质)", "性质='公办' and 所属中心校='" & r("所属中心校") & "'")
r("公办_班数")=DataTables("幼儿园基本情况表").SQLCompute("sum(班数)", "性质='公办' and 所属中心校='" & r("所属中心校") & "'")
r("公办_人数")=DataTables("幼儿园基本情况表").SQLCompute("sum(幼儿人数)", "性质='公办' and 所属中心校='" & r("所属中心校") & "'")
r("民办_所数")=DataTables("幼儿园基本情况表").SQLCompute("Count(性质)", "性质='民办' and 所属中心校='" & r("所属中心校") & "'")
r("民办_班数")=DataTables("幼儿园基本情况表").SQLCompute("sum(班数)", "性质='民办' and 所属中心校='" & r("所属中心校") & "'")
r("民办_人数")=DataTables("幼儿园基本情况表").SQLCompute("sum(幼儿人数)", "性质='民办' and 所属中心校='" & r("所属中心校") & "'")
r("公民办合计_所数")=DataTables("幼儿园基本情况表").SQLCompute("Count(性质)", "所属中心校='" & r("所属中心校") & "'")
r("公民办合计_班数")=DataTables("幼儿园基本情况表").SQLCompute("sum(班数)", "所属中心校='" & r("所属中心校") & "'")
r("公民办合计_人数")=DataTables("幼儿园基本情况表").SQLCompute("sum(幼儿人数)", "所属中心校='" & r("所属中心校") & "'")
Next
tb2.GrandTotal = True '显示合计模式
tb2.AutoSizeCols()
老师：
g.Totals.AddExp("公办_所数","case when 性质 ='公办' then 1 else 0 end")可以计数
如何用这种方式来求班数，人数呢？
感觉用上面方式虽可以统计，但效率不高
[此贴子已经被作者于2019/12/1 20:37:27编辑过]
加好友 
发短信
Post By：2019/12/1 20:34:00 [只看该作者]
