Foxtable(狐表)用户栏目专家坐堂 → 关于专业报表自动换页


  共有5336人关注过本帖树形打印复制链接

主题:关于专业报表自动换页

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 16:58:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 20:43:00 [显示全部帖子]

新建一个项目,做些假数据发上来测试

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部