搞定
Dim sg As New SQLGroupTableBuilder("统计表1","masterlist_cip")
sg.Connn
sg.filter="stage='assigned' or stage='Closed' or stage='Rejected by ActionOwner'"
sg.AddTable("masterlist_cip","advisor","masterdata","name_of_user")
sg.groups.AddDef("Dateofrisen",DateGroupEnum.quarter,"Quarter")
sg.Groups.AddDef("dept_of_user","Dept")
sg.Totals.AddDef("problem",AggregateEnum.count,"Idears")
sg.Totals.AddDef("dept_of_user",AggregateEnum.count,"TEMP1")
sg.build
MainTable = Tables("统计表1")
For Each r As Row In Tables("统计表1").rows
r("TEMP1")=DataTables("masterdata").Compute("count(name_of_user)","dept_of_user='" & r("Dept") & "'")
Next
DataTables("统计表1").DataCols.Add("Avg",Gettype(Single))
For Each r As Row In Tables("统计表1").rows
r("Avg")=val(r("Idears"))/val(r("TEMP1"))
Next