Dim g As New CrossTableBuilder("统计汇总", DataTables("绩效计划表"))
g.Caption = "统计汇总"
g.HGroups.AddDef("年度")
g.HGroups.AddDef("季度")
g.VGroups.AddDef("分管领导")
g.Totals.AddDef("权重", AggregateEnum.Average)
g.Totals.AddDef("实际得分",AggregateEnum.Average)
g.Decimals = 2
g.Subtotal = True
g.Build()
MainTable = Tables("统计汇总")
[此贴子已经被作者于2011-9-2 14:15:39编辑过]