Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]帮忙关于专业报表打印的问题


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

主题：[求助]帮忙关于专业报表打印的问题
帅哥哟，离线，有人找我吗？
viking
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		[求助]帮忙关于专业报表打印的问题  发帖心情 Post By：2014/1/2 12:07:00 [只看该作者]

大神帮忙给看看，报表专业打印，这个要怎么写？

图片点击可在新窗口打开查看

还有个问题：

这个绑定方式可以吗？

关联表：表A.表B.第三列.第一行

[此贴子已经被作者于2014-1-3 15:22:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
viking
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		  发帖心情 Post By：2014/1/2 12:17:00 [只看该作者]

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


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		  发帖心情 Post By：2014/1/2 17:38:00 [只看该作者]

请各位大神帮忙

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


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2014/1/2 22:30:00 [只看该作者]

表格的样子做出来了，在命令窗口执行：

 

Dim doc  As New PrintDoc  '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rs As New prt.RenderText() '定义一个文本对象
rs.Text = "表格标题"  '设置文本对象的内容
rs.Style.Font = New Font("宋体", 24 , FontStyle.Bold) '设置文本对象的字体
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中
rt.Style.Spacing.Top = 4  '表格和前面对象的垂直间隔为4毫米
doc.Body.Children.Add(rs)
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef  '设置网格线
rt.height = 100
rt.Rows.count = 9
rt.Cols.count = 4
rt.Cols(0).width = 10
rt.Cols(1).Width = 40
rt.Cols(2).Width = 10
rt.Cols(3).Width = 10
rt.cells(0,1).Spancols = 3
rt.cells(6,1).Spancols = 3
rt.cells(7,1).Spancols = 3
 doc.Preview() '预览报

 

至于每个格子的内容，你可以自己填入，例如：

 

rt.cells(0,0) = “文本A”
rt.cells(0,1) = tables("表A.表B").Current("第二列")

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


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		  发帖心情 Post By：2014/1/3 15:21:00 [只看该作者]

以下是引用有点酸在2014-1-2 22:30:00的发言：

表格的样子做出来了，在命令窗口执行：

 

Dim doc  As New PrintDoc  '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rs As New prt.RenderText() '定义一个文本对象
rs.Text = "表格标题"  '设置文本对象的内容
rs.Style.Font = New Font("宋体", 24 , FontStyle.Bold) '设置文本对象的字体
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中
rt.Style.Spacing.Top = 4  '表格和前面对象的垂直间隔为4毫米
doc.Body.Children.Add(rs)
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef  '设置网格线
rt.height = 100
rt.Rows.count = 9
rt.Cols.count = 4
rt.Cols(0).width = 10
rt.Cols(1).Width = 40
rt.Cols(2).Width = 10
rt.Cols(3).Width = 10
rt.cells(0,1).Spancols = 3
rt.cells(6,1).Spancols = 3
rt.cells(7,1).Spancols = 3
 doc.Preview() '预览报

 

至于每个格子的内容，你可以自己填入，例如：

 

rt.cells(0,0) = “文本A”
rt.cells(0,1) = tables("表A.表B").Current("第二列")

 

谢谢大神！！！！很感谢，我知道我这个问法很偷懒，没想到还是有好心人啊！！！！

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