以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格与页眉页脚  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187824)

--  作者:kaituozhe
--  发布时间:2023/8/15 9:08:00
--  表格与页眉页脚
设计的套打表格,表格格式是一致,内容不一致,比如按客户生成的对账单,每次选择按多个客户生成多张表格,我希望按每个客户编页眉和页脚,怎么写代码
--  作者:有点蓝
--  发布时间:2023/8/15 9:17:00
--  
设计的什么表格?execl,word,专业报表?模板或者代码发上来呀
--  作者:kaituozhe
--  发布时间:2023/8/15 9:21:00
--  
专业报表
--  作者:kaituozhe
--  发布时间:2023/8/15 9:32:00
--  

Dim dt1 As Table=Tables("客户明细_table1")

Dim dt2 As DataTable=DataTables("订单明细")

Dim doc As New PrintDoc \'定义一个报表

Dim rt As New prt.RenderTable() \'定义一个表格对象

Dim rs As New prt.RenderText() \'定义一个文本对象

For i As Integer = dt1.TopRow To dt1.BottomRow

中间是套打的代码,代码较多

一次选择多个客户,根据每个客户的订单生成明细表,现在设计的代码是按所有选择的生成页脚,我希望按不同客户生成各自的页脚


Next

doc.PageSetting.Landscape = True \'横向打印

Doc.Preview() \'预览报表


--  作者:有点蓝
--  发布时间:2023/8/15 9:43:00
--  
http://www.foxtable.com/webhelp/topics/1197.htm
--  作者:kaituozhe
--  发布时间:2023/8/15 9:56:00
--  
5楼的我看过,怎么能解决一次选择多个客户,根据每个客户的订单生成明细表,现在设计的代码是按所有选择的生成页脚,我希望按不同客户生成各自的页脚
--  作者:kaituozhe
--  发布时间:2023/8/15 10:00:00
--  
5楼的列子是按打印的所有页编号的,我希望按不同客户分别编号,比如总数100页,客户分别是5、10、12等等,我希望的客户1是1、2、3、4、5,客户2是1、2、3、4、5、6、7、8、9、10依次类推
--  作者:有点蓝
--  发布时间:2023/8/15 10:02:00
--  
请上传实例说明