Dim g As New GroupTableBuilder("统计表1", DataTables("登记总表"))
g.Caption = "门诊收费明细分月统计"
g.Groups.AddDef("日期", DateGroupEnum.Year, "年度")
g.Groups.AddDef("日期","月份")
g.Totals.AddDef("狂苗金额", "收费项目_狂苗_小计")
g.Totals.AddDef("狂苗金额", "收费项目_狂苗_累计",True)
g.Totals.AddDef("狂免金额", "收费项目_狂免_小计")
g.Totals.AddDef("狂免金额", "收费项目_狂免_累计",True)
g.Totals.AddDef("挂号费价格", "收费项目_挂号费_小计")
g.Totals.AddDef("挂号费价格", "收费项目_挂号费_累计",True)
g.Totals.AddDef("清创治疗单价", "收费项目_治疗费_小计")
g.Totals.AddDef("清创治疗单价", "收费项目_治疗费_累计",True)
g.Totals.AddDef("注射费金额", "收费项目_注射费_小计")
g.Totals.AddDef("注射费金额", "收费项目_注射费_累计",True)
g.Totals.AddDef("诊查费单价", "收费项目_诊查费_小计")
g.Totals.AddDef("诊查费单价", "收费项目_诊查费_累计",True)
g.Totals.AddDef("建档费单价", "收费项目_建档费_小计")
g.Totals.AddDef("建档费单价", "收费项目_建档费_累计",True)
g.Totals.AddDef("咨询费单价", "收费项目_咨询费_小计")
g.Totals.AddDef("咨询费单价", "收费项目_咨询费_累计",True)
g.Totals.AddDef("门诊留观单价", "收费项目_留观费_小计")
g.Totals.AddDef("门诊留观单价", "收费项目_留观费_小计",True)
g.Totals.AddDef("合计金额", "合计金额_小计")
g.Totals.AddDef("合计金额", "合计金额_累计",True)
Tables("窗口统计_Table1").DataSource = g.BuildDataSource
加好友 
发短信
Post By：2015/6/2 9:59:00 [只看该作者]
