定义一个表格对象 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 定义一个表格对象

共有3009人关注过本帖树形打印复制链接主题：定义一个表格对象

a568837976

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：40 积分：432 威望：0 精华：0 注册：2019/11/22 17:17:00

定义一个表格对象 发帖心情

Post By：2020/5/20 10:21:00 [显示全部帖子]

表格对象如果行数过多，放入报表里面不会自动换页吗？

表格都堆到一起

Dim doc As New PrintDoc '定义一个报表

Dim rt As New prt.RenderTable() '定义一个表格对象

[此贴子已经被作者于2020/5/20 10:24:54编辑过]

a568837976

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：40 积分：432 威望：0 精华：0 注册：2019/11/22 17:17:00

这样可以吗

Post By：2020/5/20 10:45:00 [显示全部帖子]

rt = New prt.RenderTable() '定义一个表格对象

rt.Cells(0,0).text = ""

jj1 = 1

For Each '循环对这个表格对象增加行

rt.Cells(jj1,0).text = ""

jj1 +=1

'在这个加个判断，如果增加到20行，就将表格对象放入报表，在定义一个新的表格对象，同时分页

if jj1 = "20" then

doc.Body.Children.Add(rt) '将表格对象加入到报表中

rt = New prt.RenderTable() '定义一个表格对象

rt.BreakBefore= prt.BreakEnum.Page '分页

jj1 = 1

end if

doc.Body.Children.Add(rt) '将表格对象加入到报表中

[此贴子已经被作者于2020/5/20 10:46:31编辑过]

主题：定义一个表格对象