Foxtable(狐表)用户栏目专家坐堂 → 请问:专业报表中表格的行高问题


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

主题:请问:专业报表中表格的行高问题

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


加好友 发短信
等级:狐神 帖子:4650 积分:33912 威望:0 精华:0 注册:2008/8/31 22:44:00
请问:专业报表中表格的行高问题  发帖心情 Post By:2020/3/11 10:32:00 [只看该作者]

如下代码生成的表格,其行高是自动的,如何在这个自动行高的基础上加高一点,例如:自动行高+5
Dim lst As new List(of String)
lst.add("1,1111")
lst.add("2,2222")
lst.add("3,3333")
lst.add("4,4444")
lst.add("5,5555")
Dim 报表 As New PrintDoc '定义一个报表
Dim 表格 As New prt.RenderTable() '定义一个表格对象
报表.Body.Children.Add(表格) '将表格对象加入到报表中
表格.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
For r As Integer = 0 To lst.Count - 1
    表格.rows(r).Height = 表格.rows(r).Height + 5   '这样的写法,通不过
    For c As Integer = 0 To 1
        表格.Cells(r,c).Text = lst(r).split(",")(c)
    Next
Next
报表.Preview() '预览报表

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


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/11 10:54:00 [只看该作者]

只能直接指定高度。不指定的情况下Height 值是auto,无法用来做计算

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


加好友 发短信
等级:狐神 帖子:4650 积分:33912 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/3/11 11:43:00 [只看该作者]

收到。
能否返回自动生成行高的实际值?

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


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/11 11:55:00 [只看该作者]

我也没找到办法。

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


加好友 发短信
等级:狐神 帖子:4650 积分:33912 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/3/11 12:47:00 [只看该作者]

谢谢,用以下方法变通搞定了。

表格.CellStyle.Spacing.Top = 5
表格.CellStyle.Spacing.Bottom = 5

 回到顶部