[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在Table控件的上面插入一个Label控件，假定控件名称是Label1，统计代码如下：

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

e.Form.Controls("Label1").Text = "门诊收费明细分月统计"

打印代码不变

[此贴子已经被作者于2015/6/2 10:02:26编辑过]

主题：[求助]