| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69245) |
| -- 作者：zcgmxf -- 发布时间：2015/6/2 9:59:00 -- [求助] 各位老师好！下面是我在窗口生成统计表的代码 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 在窗口打印时没有表名（Dim doc As PrintDoc = e.Form.GernatePrintDoc() doc.Preview() 预览），如何解决啊？请多指教。 |
| -- 作者：Bin -- 发布时间：2015/6/2 10:00:00 -- 在窗口 Table1控件上方,放一个Label控件 然后在 Tables("窗口统计_Table1").DataSource = g.BuildDataSource 这句代码的后面 加入代码 forms("窗口名").controls("Label1").text="门诊收费明细分月统计"
|
| -- 作者：狐狸爸爸 -- 发布时间：2015/6/2 10:02:00 -- 在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编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2015/6/2 10:04:00 -- 还有一个方法： http://www.foxtable.com/help/topics/1233.htm
|
| -- 作者：zcgmxf -- 发布时间：2015/6/2 10:14:00 -- 谢谢各位老师！不过还是有个问题，我在窗口有多个统计按钮，生成的统计表有纵向的有横向的，而lable的位置是固定的，生成表后表名的位置不能根据表的方向移动。如果是一个表就解决了。谢谢1 |
| -- 作者：zcgmxf -- 发布时间：2015/6/2 10:17:00 -- 用一个文本框代替lable可以在生成表后修改表名，但就是不能移动位置。 |
| -- 作者：狐狸爸爸 -- 发布时间：2015/6/2 10:18:00 -- 关于打印的问题，可以统计代码不变，将打印代码改为：
Tables("窗口1_Table1").Print(True, True)
这是最简单的办法，也不用加标签。 [此贴子已经被作者于2015/6/2 10:18:52编辑过]
|
| -- 作者：zcgmxf -- 发布时间：2015/6/2 10:19:00 -- 虽然可以把文本框拉长些用空格键移动文本位置，但是要是有多页，后面的就没有表名了。 |
| -- 作者：狐狸爸爸 -- 发布时间：2015/6/2 10:25:00 -- 如果2楼和3楼的方法，且希望每页显示表名，那么简单，只需将Table控件的每页最大行数设置为一个合适的值就行，例如每页20行。 |
| -- 作者：大红袍 -- 发布时间：2015/6/2 10:33:00 -- 打印代码。
[此贴子已经被作者于2015/6/2 10:34:34编辑过]
|