Dim bd1 As New GroupTableBuilder("统计表1",DataTables("行政案件"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("办案部门") '根据办案部门分组
bd1.Totals.AddDef("行政罚款","行政罚款") '对金额进行统计
dt1 = bd1.BuildDataSource()
Tables("统计_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("统计_Table1").DataCols '用表达式列计算库存数据
.Add("投诉案",Gettype(Integer))
.Add("查办案件总数",Gettype(Integer))
End With
For Each dr As Row In Tables("统计_Table1").Rows
dr("查办案件总数")= DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = '" & dr("办案部门") & "'" )
dr("投诉案") = DataTables("行政案件").Compute("Count(办案部门)", "[案件来源]='投诉'" )
Next
上面的红色代码如何再加入统计条件？例如在加入橙色部分的条件,让“投诉案”=部门查办的投诉类案件
加好友 
发短信
Post By：2013/8/23 9:51:00 [只看该作者]
