- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于专业报表自动换页 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177292)
-- 发布时间：2022/5/16 16:55:00
-- 关于专业报表自动换页
此主题相关图片如下：wechat 圖片_20220516165225.png
如图我想一个ITEM为一页该怎样设定
-- 发布时间：2022/5/16 16:58:00
--
参考：http://www.foxtable.com/webhelp/topics/1196.htm
-- 发布时间：2022/5/16 17:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新增 doc 文档.rar |
老师，麻烦看看要怎样改，因程序有公司重要信息不能公开
-- 发布时间：2022/5/16 20:43:00
--
新建一个项目，做些假数据发上来测试
-- 发布时间：2022/5/17 8:40:00
--
for i=0 to 2
Dim rm1 As New prt.RenderTable
rm1.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rm1.CellStyle.Spacing.All = 0.5
rm1.BreakAfter = prt.BreakEnum.Page
rt.Cells(i1 + 1, 0).SpanCols = 10
rt.Cells(i1 + 1, 0).RenderObject = rm1
i = i1 + 2
Next
我现在是想每个循环就自动换页，这样子也不行
-- 发布时间：2022/5/17 8:50:00
--
没有添加到报表
for i=0 to 2
Dim rm1 As New prt.RenderTable
rm1.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rm1.CellStyle.Spacing.All = 0.5
rm1.BreakAfter = prt.BreakEnum.Page
rt.Cells(i1 + 1, 0).SpanCols = 10
rt.Cells(i1 + 1, 0).RenderObject = rm1
i = i1 + 2
doc.Body.Children.Add(rt)
Next