Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有3053人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
zcgmxf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1629 积分:14396 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助]  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/6/2 10:00:00 [只看该作者]

在窗口  Table1控件上方,放一个Label控件

然后在
Tables("窗口统计_Table1").DataSource  = g.BuildDataSource
这句代码的后面

加入代码

forms("窗口名").controls("Label1").text="门诊收费明细分月统计"

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/6/2 10:04:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1629 积分:14396 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2015/6/2 10:14:00 [只看该作者]

谢谢各位老师!不过还是有个问题,我在窗口有多个统计按钮,生成的统计表有纵向的有横向的,而lable的位置是固定的,生成表后表名的位置不能根据表的方向移动。如果是一个表就解决了。谢谢1

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1629 积分:14396 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2015/6/2 10:17:00 [只看该作者]

用一个文本框代替lable可以在生成表后修改表名,但就是不能移动位置。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/6/2 10:18:00 [只看该作者]

关于打印的问题,可以统计代码不变,将打印代码改为:

 

Tables("窗口1_Table1").Print(True, True)

 

这是最简单的办法,也不用加标签。

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

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1629 积分:14396 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2015/6/2 10:19:00 [只看该作者]

虽然可以把文本框拉长些用空格键移动文本位置,但是要是有多页,后面的就没有表名了。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/6/2 10:25:00 [只看该作者]

如果2楼和3楼的方法,且希望每页显示表名,那么简单,只需将Table控件的每页最大行数设置为一个合适的值就行,例如每页20行。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/2 10:33:00 [只看该作者]

 打印代码。

 

 

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

 回到顶部
总数 14 1 2 下一页