- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表问题！！！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7897)
-- 发布时间：2010/8/17 21:10:00
-- 专业报表问题！！！
生成的专业报表，如何用空白的行填充最后一张表！！！
-- 发布时间：2010/8/17 21:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:专业报表实例.table |
-- 发布时间：2010/8/17 21:17:00
--
有时最后一张只有几行数据，想实现几行数据后，然后是空白行，再是“合计”行
-- 发布时间：2010/8/17 21:36:00
--
主要是花名册
在“合计”和有数据的行间自动用空行填充
-- 发布时间：2010/8/17 21:38:00
--
此主题相关图片如下：未命名.jpg
-- 发布时间：2010/8/17 21:40:00
--
比如这张表的32行和合计之间用空白行填充
谢谢
如何实现
-- 发布时间：2010/8/17 22:02:00
--
也就是专业报表如何实现自动添加空行！！！
如何实现，谢谢
-- 发布时间：2010/8/18 0:28:00
--
用Excel报表更通用些，专业报表啊，晕。
-- 发布时间：2010/8/18 8:01:00
--
|
也就是专业报表如何实现自动添加空行！！！ 如何实现，谢谢 |
-- 发布时间：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编辑过]