Foxtable(狐表)用户栏目专家坐堂 → [求助]如何将按纽标题传递作为报表动态标题!


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

主题:[求助]如何将按纽标题传递作为报表动态标题!

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


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
[求助]如何将按纽标题传递作为报表动态标题!  发帖心情 Post By:2018/12/25 23:40:00 [只看该作者]

各位大师深夜辛苦!!
我在设计报表模板时,将标题设计为:<"XX公司"  & [ANMC] & "员工名册“>,目的是想根据报表时所筛选时的“按钮名称”来动态改写报表标题!也就是如何将按纽的标题传递给报表作为动态标题。我试了好几次都没有成功,请大师指导!!请请各位大师!!!


图片点击可在新窗口打开查看此主题相关图片如下:tm4b(xq_$`iukbgpf@k7~a.png
图片点击可在新窗口打开查看

以下是“PDF格式报表”按纽中的代码:请大师帮忙,谢谢!!
Dim Book As New XLS.Book(ProjectPath & "Attachments\公司员工档案.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)


Dim fl As String = ProjectPath & "Reports\PDF报表\公司员工档案.pdf"
Book.Build() '生成细节区

Book.SaveToPDF(fl)
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()

要求:假如选择的是“30天内到期”这个按纽,则报表标题就动态为:XX公司30天内到期员工名册



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


加好友 发短信
等级:五尾狐 帖子:1135 积分:11099 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2018/12/26 8:10:00 [只看该作者]

按钮有一个属性TEXT,返回当前按钮的标题。

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


加好友 发短信
等级:超级版主 帖子:110579 积分:562791 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/26 9:04:00 [只看该作者]

标题设计为:<"XX公司"  & [!ANMC] & "员工名册“>

Dim Book As New XLS.Book(ProjectPath & "Attachments\公司员工档案.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)

vars("ANMC") = e.sender.text
Dim fl As String = ProjectPath & "Reports\PDF报表\公司员工档案.pdf"
Book.Build() '生成细节区

 回到顶部