Dim bd2 As New GroupTableBuilder("统计表1",DataTables("费用明细附表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("日期",DateGroupEnum.None)
bd2.Groups.AddDef("部门")
bd2.Groups.AddDef("成本类别")
bd2.Totals.AddDef("费用_本月")
bd2.Totals.AddDef("费用_累计")
dt2 = bd2.BuildDataSource()
Dim bd1 As New GroupTableBuilder("统计表2",DataTables("利润表附表"))
Dim dt1 As fxDataSource
Dim dic As new Dictionary(of String, String)
For Each c As Col In Tables("利润表附表").cols
dic.add(c.Caption, c.name)
Next
bd1.Groups.AddDef("日期",DateGroupEnum.None)
bd1.Groups.AddDef("部门")
bd1.Totals.AddDef(dic("主营业务收入_本月"),"主营业务收入_本月")
bd1.Totals.AddDef(dic("主营业务收入_累计"),"主营业务收入_累计")
dt1 = bd1.BuildDataSource()
Dim nms As String() = {"日期","部门"}
dt2.Combine(nms,dt1,nms)
加好友 
发短信
Post By：2015/12/12 10:32:00 [显示全部帖子]
