不行的,因为生成的报表已经根据分组生成汇总模式了。还有其他的办法吗?我把图和代码发一下,你看看!我想生成图片上的汇总模式,但要按 “排序编号”列排序。请问该怎么写代码?谢谢!
Dim g As New GroupTableBuilder("统计表1", DataTables("日报表"))
g.Groups.AddDef("日期", DateGroupEnum.Day)
g.Groups.AddDef("公司名称")
g.Totals.AddDef("排序编号")
g.Totals.AddDef("资金可用余额")
g.Totals.AddDef("当天收入截至当天17时_合同销售额")
g.Totals.AddDef("当天收入截至当天17时_现金回款额")
g.Totals.AddDef("当天收入截至当天17时_已售未回款额")
g.Totals.AddDef("支出合计")
g.Totals.AddDef("当天支出截至当天17时_土地支出")
g.Totals.AddDef("当天支出截至当天17时_设计费")
g.Totals.AddDef("当天支出截至当天17时_政府规费")
g.Totals.AddDef("当天支出截至当天17时_工程款")
g.Totals.AddDef("当天支出截至当天17时_其中总包")
g.Totals.AddDef("当天支出截至当天17时_营销费")
g.Totals.AddDef("当天支出截至当天17时_管理费")
g.Totals.AddDef("当天支出截至当天17时_工资社保")
g.Totals.AddDef("当天支出截至当天17时_税金")
g.Totals.AddDef("当天支出截至当天17时_其他")
g.VerticalTotal = True ' 垂直方向自动增加汇总
g.SubTotal = True ' 生成汇总模式
g.Build '生成统计表
Tables("主页_Tab测试表2").DataSource = g.BuildDataSource()
[此贴子已经被作者于2016/7/13 14:04:27编辑过]