以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXCEL报表序号问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115891)
--  作者：atlas77
--  发布时间：2018/3/16 9:35:00
--  EXCEL报表序号问题
请问如何在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编辑过]
--  作者：有点甜
--  发布时间：2018/3/16 9:47:00
--  

要编写报表事件

 

http://www.foxtable.com/webhelp/scr/1953.htm

 

http://www.foxtable.com/webhelp/scr/1956.htm

 

http://www.foxtable.com/webhelp/scr/1955.htm

 
--  作者：atlas77
--  发布时间：2018/3/16 10:11:00
--  
看了链接，还是不明白
--  作者：有点甜
--  发布时间：2018/3/16 10:12:00
--  

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

 

不会做上传实例。
--  作者：atlas77
--  发布时间：2018/3/16 15:57:00
--  
我做出来发现如果最后一页不足4个记录，补足行数后会出现多余的页码，若最后一页是第2页，有1记录，打印会多出现3个“2-”，第一条记录是2-1，后面有三个2-
[此贴子已经被作者于2018/3/16 15:57:40编辑过]
--  作者：有点甜
--  发布时间：2018/3/16 15:59:00
--  
贴出你buildDetail事件的代码。或者说明你写了什么代码实现的。
--  作者：atlas77
--  发布时间：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
--  作者：有点蓝
--  发布时间：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