以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问：专业报表中表格的行高问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147160)
--  作者：y2287958
--  发布时间：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() \'预览报表
--  作者：有点蓝
--  发布时间：2020/3/11 10:54:00
--  
只能直接指定高度。不指定的情况下Height 值是auto，无法用来做计算
--  作者：y2287958
--  发布时间：2020/3/11 11:43:00
--  
收到。
能否返回自动生成行高的实际值？
--  作者：有点蓝
--  发布时间：2020/3/11 11:55:00
--  
我也没找到办法。
--  作者：y2287958
--  发布时间：2020/3/11 12:47:00
--  
谢谢，用以下方法变通搞定了。

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