Foxtable(狐表)用户栏目专家坐堂 → [求助]请问专业报表多行多列如何同时合并?还有单元格部分线条的隐藏要怎么写?


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

主题:[求助]请问专业报表多行多列如何同时合并?还有单元格部分线条的隐藏要怎么写?

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


加好友 发短信
等级:一尾狐 帖子:450 积分:3481 威望:0 精华:0 注册:2015/3/4 15:55:00
[求助]请问专业报表多行多列如何同时合并?还有单元格部分线条的隐藏要怎么写?  发帖心情 Post By:2023/6/14 2:29:00 [只看该作者]

如题:请问专业报表多行多列如何同时合并?还有单元格部分线条的隐藏要怎么写?
效果如图:

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

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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/14 8:40: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.Rows.Count = 7 '设置总行数
rt.Cols.Count = 5 '设置总列数
rt.Height = 120 '设置表格的高度为120毫米
rt.Cells(2, 1).SpanRows = 3 '第3行第2个单元格向下合并3行
rt.Cells(2, 1).SpanCols = 3 '第3行第2个单元格向右合并3列
Doc.Preview() '预览报表

 回到顶部