Foxtable(狐表)用户栏目专家坐堂 → 表格与页眉页脚


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

主题:表格与页眉页脚

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
表格与页眉页脚  发帖心情 Post By:2023/8/15 9:08:00 [只看该作者]

设计的套打表格,表格格式是一致,内容不一致,比如按客户生成的对账单,每次选择按多个客户生成多张表格,我希望按每个客户编页眉和页脚,怎么写代码

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/15 9:17:00 [只看该作者]

设计的什么表格?execl,word,专业报表?模板或者代码发上来呀

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2023/8/15 9:21:00 [只看该作者]

专业报表

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By: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() '预览报表


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/15 9:43:00 [只看该作者]


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2023/8/15 9:56:00 [只看该作者]

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

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By: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依次类推

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/15 10:02:00 [只看该作者]

请上传实例说明

 回到顶部