Foxtable(狐表) → 用户栏目 → 专家坐堂 → EXCEL报表序号问题


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

主题：EXCEL报表序号问题
帅哥哟，离线，有人找我吗？
atlas77
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：54 积分：741 威望：0 精华：0 注册：2017/9/13 19:13:00 		EXCEL报表序号问题  发帖心情 Post By：2018/3/16 9:35:00 [只看该作者]

请问如何在EXCEL报表中实现以下可能：
比如打印总共多页，每页可打印4条记录，实现
第一页第一条记录为1-1，第二条为1-2.第三条为1-3，第4条为1-4；
第二页第一条记录为2-1，第二条为2-2.第三条为2-3，第4条为2-4；
第三页第一条记录为3-1，第二条为3-2.第三条为3-3，第4条为3-4；
……
[此贴子已经被作者于2018/3/16 9:35:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/16 9:47:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
atlas77
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：54 积分：741 威望：0 精华：0 注册：2017/9/13 19:13:00 		  发帖心情 Post By：2018/3/16 10:11:00 [只看该作者]

看了链接，还是不明白

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/16 10:12:00 [只看该作者]

参考这种做法 http://www.foxtable.com/webhelp/scr/1956.htm

 

不会做上传实例。
 回到顶部
帅哥哟，离线，有人找我吗？
atlas77
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：54 积分：741 威望：0 精华：0 注册：2017/9/13 19:13:00 		  发帖心情 Post By：2018/3/16 15:57:00 [只看该作者]

我做出来发现如果最后一页不足4个记录，补足行数后会出现多余的页码，若最后一页是第2页，有1记录，打印会多出现3个“2-”，第一条记录是2-1，后面有三个2-
[此贴子已经被作者于2018/3/16 15:57:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/16 15:59:00 [只看该作者]

贴出你buildDetail事件的代码。或者说明你写了什么代码实现的。

 回到顶部
帅哥哟，离线，有人找我吗？
atlas77
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：54 积分：741 威望：0 精华：0 注册：2017/9/13 19:13:00 		  发帖心情 Post By：2018/3/17 8:48:00 [只看该作者]

Select Case e.book.template
    Case "项目打印"
        e.book.marks.add("页号","")
        e.book.marks.add("pg",0)
End Select






Select Case e.book.template
    Case "项目打印"
        e.book.marks("pg") = e.book.marks("pg") + 1
        e.book.marks("页号") = e.book.marks("pg") & "-"
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 9:23:00 [只看该作者]

判断一下

Select Case e.book.template
    Case "项目打印"
        If e.DataRow IsNot Nothing Then
            e.book.marks("pg") = e.book.marks("pg") + 1
            e.book.marks("页号") = e.book.marks("pg") & "-"
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询