- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何将按纽标题传递作为报表动态标题！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129288)
-- 发布时间：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天内到期员工名册
-- 发布时间：2018/12/26 8:10:00
--
按钮有一个属性TEXT，返回当前按钮的标题。
-- 发布时间：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() \'生成细节区