Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于专业报表的一个问题


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

主题：关于专业报表的一个问题
帅哥哟，离线，有人找我吗？
czy66ds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		关于专业报表的一个问题  发帖心情 Post By：2018/12/25 17:07:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：b55ccda8-dc70-4dc6-8132-3a0ac2679cce.jpg
图片点击可在新窗口打开查看


如图，如何实现品名列和其余列分行显示？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/25 17:29:00 [只看该作者]

如果是表格，品名单独占一行，然后合并这一行单元格。货号从下一行第一列开始，合并占2列

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


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2018/12/25 18:20:00 [只看该作者]

是表格，具体怎么实现呢？

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/25 20:21:00 [只看该作者]

例如：
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Cols.Count = 3

Dim rx As New prt.RenderText 
rx.Text = "品名"
rt.Cells(0,0).RenderObject = rx 
rx = New prt.RenderText 
rx.Text = "货号"
rt.Cells(0,1).RenderObject = rx 
rx = New prt.RenderText 
rx.Text = "数量"
rt.Cells(0,2).RenderObject = rx 

rt.Cells(1,0).SpanCols = 3 
rx = New prt.RenderText 
rx.Text = "苹果苹果股piao苹果"
rt.Cells(1,0).RenderObject = rx 

rt.Cells(2,0).SpanCols = 2 
rx = New prt.RenderText 
rx.Text = "0123456789"
rt.Cells(2,0).RenderObject = rx 
rt.Cells(2,0).SpanCols = 2 '

rx = New prt.RenderText 
rx.Text = "1"
rt.Cells(2,2).RenderObject = rx 

rt.Style.TextAlignHorz =prt.AlignHorzEnum.Center
Doc.Preview() '预览报表
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询