- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 各位高手，我想在导出的报表加上固定的名称"关于＊＊＊同志退休的通知"，怎么加啊？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97451)
-- 发布时间：2017/3/12 23:44:00
-- 各位高手，我想在导出的报表加上固定的名称"关于＊＊＊同志退休的通知"，怎么加啊？
下面是代码，我想输出的报表名称为"关于某某同志退休的通知"
Dim tm As String = ProjectPath & "Attachments\\专技(含正常晋级).doc" \'指定模板文件
Dim r As Row = Tables("退休信息").Current
Dim fl As String = ProjectPath & "Reports\\退休制文\\" & r("姓名") & ".doc"
Dim wrt As New WordReport(Tables("退休信息"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
-- 发布时间：2017/3/13 0:24:00
--
Dim fl As String = ProjectPath & "Reports\\退休制文\\关于" & r("姓名") & "同志退休的通知.doc"
-- 发布时间：2017/3/13 13:12:00
--
以下是引用有点色在2017/3/13 0:24:00的发言：
Dim fl As String = ProjectPath & "Reports\\退休制文\\关于" & r("姓名") & "同志退休的通知.doc"
谢谢高手，如果我想将该份文件保存至当前时间年月的文件夹，如何加代码呢？
-- 发布时间：2017/3/13 15:10:00
--
Dim fl As String = ProjectPath & "Reports\\退休制文\\" & format(date.now,"yyyy-MM-dd") & "\\关于" & r("姓名") & "同志退休的通知.doc"
http://www.foxtable.com/webhelp/scr/0362.htm