以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  EXCEL报表序号问题  (http://www.foxtable.com/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