| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 定义一个表格对象 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150072) |
| -- 作者：a568837976 -- 发布时间：2020/5/20 10:21:00 -- 定义一个表格对象 表格对象如果行数过多，放入报表里面不会自动换页吗？ 表格都堆到一起
Dim doc As New PrintDoc \'定义一个报表 Dim rt As New prt.RenderTable() \'定义一个表格对象 [此贴子已经被作者于2020/5/20 10:24:54编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/5/20 10:27:00 -- 如果一个单元格内容过多，没有办法，自己计算一下行数进行分页 |
| -- 作者：a568837976 -- 发布时间：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 Next doc.Body.Children.Add(rt) \'将表格对象加入到报表中
[此贴子已经被作者于2020/5/20 10:46:31编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/5/20 10:51:00 -- 代码不完整我这边无法测试。自己测试有什么问题？http://www.foxtable.com/webhelp/topics/2241.htm |