|
Dim g As New CrossTableBuilder("统计表1", DataTables("学时2013下"))
g.HGroups.AddDef("xq")
g.HGroups.AddDef("zsbh")
g.HGroups.AddDef("xm")
g.VGroups.AddDef("jzfjz")
g.VGroups.AddDef("djnf")
g.VGroups.AddDef("xmmc")
g.Totals.AddDef("xs", "xs")
g.Filter = "xq is not null"
g.Build()
Dim dt As DataTable = DataTables("统计表1")
dt.DataCols.Add("非集中小计", Gettype(Integer), "", "非集中小计")
dt.DataCols.Add("集中小计", Gettype(Integer), "", "集中小计")
dt.DataCols.Add("合计", Gettype(Integer), "", "合计")
For Each dr As DataRow In dt.DataRows
For Each dc As DataCol In dt.DataCols
If dc.Caption.StartsWith("非集中_") Then
dr("非集中小计") += val(dr(dc.name))
Else If dc.Caption.StartsWith("集中_") Then
dr("集中小计") += val(dr(dc.name))
End If
Next
dr("合计") = val(dr("非集中小计")) + val(dr("集中小计"))
Next
MainTable = Tables("统计表1")
Dim r As Row = Tables("统计表1").AddNew
r("xq") = "合计"
r("xs_1") = Tables("统计表1").Compute("Sum(xs_1)")
r("xs_2") = Tables("统计表1").Compute("Sum(xs_2)")
r("xs_3") = Tables("统计表1").Compute("Sum(xs_3)")
r("xs_4") = Tables("统计表1").Compute("Sum(xs_4)")
r("xs_5") = Tables("统计表1").Compute("Sum(xs_5)")
r("非集中小计") = Tables("统计表1").Compute("Sum(非集中小计)")
r("集中小计") = Tables("统计表1").Compute("Sum(集中小计)")
r("合计") = Tables("统计表1").Compute("Sum(合计)")
|
加好友 
发短信
Post By：2014/4/3 8:41:00 [显示全部帖子]
