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


  共有3560人关注过本帖平板打印复制链接

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

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


加好友 发短信
等级:狐神 帖子:4724 积分:34374 威望: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() '预览报表

 回到顶部