主题：专业报表问题！！！

生成的专业报表，如何用空白的行填充最后一张表！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:专业报表实例.table

有时最后一张只有几行数据，想实现几行数据后，然后是空白行，再是“合计”行

主要是花名册

在“合计”和有数据的行间自动用空行填充

此主题相关图片如下：未命名.jpg

比如这张表的32行和合计之间用空白行填充

 

谢谢

 

如何实现

也就是专业报表如何实现自动添加空行！！！

如何实现，谢谢

用Excel报表更通用些，专业报表啊，晕。

也就是专业报表如何实现自动添加空行！！！ 如何实现，谢谢

如果不够20行，自动补空行：

 

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim MinRows As Integer = 20
Dim tb As Table = Tables("表A")
For c As Integer = 0 To tb.Cols.Count -1 '逐列填入内容
    rt.Cells(0,c).Text = tb.Cols(c).Name '列名作为标题
    For r As Integer = 0 To tb.Rows.Count -1
        rt.Cells(r + 1, c).Text = tb(r,c)
    Next
    IF c = 0 Then '加空行
        For  r As Integer = tb.Rows.Count To MinRows
            rt.Cells(r+1,0).Text = " "
        Next
    End If
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
doc.Body.Children.Add(rt)
doc.Preview()