[浏览完整版]
标题：专业报表问题！！！
1楼
雨中的泪 发表于：2010/8/17 21:10:00生成的专业报表，如何用空白的行填充最后一张表！！！
2楼
雨中的泪 发表于：2010/8/17 21:11:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:专业报表实例.table |
3楼
雨中的泪 发表于：2010/8/17 21:17:00有时最后一张只有几行数据，想实现几行数据后，然后是空白行，再是“合计”行
4楼
雨中的泪 发表于：2010/8/17 21:36:00主要是花名册
在“合计”和有数据的行间自动用空行填充
5楼
雨中的泪 发表于：2010/8/17 21:38:00
此主题相关图片如下：未命名.jpg
6楼
雨中的泪 发表于：2010/8/17 21:40:00比如这张表的32行和合计之间用空白行填充
谢谢
如何实现
7楼
雨中的泪 发表于：2010/8/17 22:02:00也就是专业报表如何实现自动添加空行！！！
如何实现，谢谢
8楼
e-png 发表于：2010/8/18 0:28:00用Excel报表更通用些，专业报表啊，晕。
9楼
雨中的泪 发表于：2010/8/18 8:01:00|
也就是专业报表如何实现自动添加空行！！！ 如何实现，谢谢 |
10楼
狐狸爸爸 发表于：2010/8/18 8:11:00如果不够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()
[此贴子已经被作者于2010-8-18 8:11:07编辑过]