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


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

主题：[求助]
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1634 积分：14438 威望：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() 预览），如何解决啊？请多指教。
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1634 积分：14438 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2015/6/2 10:14:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1634 积分：14438 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2015/6/2 10:17:00 [显示全部帖子]

用一个文本框代替lable可以在生成表后修改表名，但就是不能移动位置。
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1634 积分：14438 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2015/6/2 10:19:00 [显示全部帖子]

虽然可以把文本框拉长些用空格键移动文本位置，但是要是有多页，后面的就没有表名了。
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1634 积分：14438 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2015/6/2 10:46:00 [显示全部帖子]

老师，用Tables("窗口1_Table1").Print(True, True)代码打印，不用添加控件，也会自动居中，但是生成的表名是："窗口1_Table1"。如何能得到统计代码中的表名呢？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1634 积分：14438 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2015/6/2 11:17:00 [显示全部帖子]

老师，这个问题解决了。我是这样处理的。先在窗口添加一个按钮，代码为主程序的打印设置。 生成统计表，设置页面，直接在打印设置中修改表名，然后用您Tables("窗口1_Table1").Print(True, True)打印，就可以直接打印表名了。一点都不复杂。谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询