各位高手，我想在导出的报表加上固定的名称"关于＊＊＊同志退休的通知"，怎么加啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 各位高手，我想在导出的报表加上固定的名称"关于＊＊＊同志退休的通知"，怎么加啊？

共有2357人关注过本帖树形打印复制链接主题：各位高手，我想在导出的报表加上固定的名称"关于＊＊＊同志退休的通知"，怎么加啊？

xhydxs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：249 积分：2238 威望：0 精华：0 注册：2016/10/29 14:17:00

各位高手，我想在导出的报表加上固定的名称"关于＊＊＊同志退休的通知"，怎么加啊？ 发帖心情

Post By：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() '显示报表

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/13 0:24:00 [只看该作者]

Dim fl As String = ProjectPath & "Reports\退休制文\关于" & r("姓名") & "同志退休的通知.doc"

xhydxs

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：249 积分：2238 威望：0 精华：0 注册：2016/10/29 14:17:00

Post By：2017/3/13 13:12:00 [只看该作者]

以下是引用有点色在2017/3/13 0:24:00的发言：

Dim fl As String = ProjectPath & "Reports\退休制文\关于" & r("姓名") & "同志退休的通知.doc"

谢谢高手，如果我想将该份文件保存至当前时间年月的文件夹，如何加代码呢？图片点击可在新窗口打开查看

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112419 积分：572369 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/13 15:10:00 [只看该作者]

Dim fl As String = ProjectPath & "Reports\退休制文\" & format(date.now,"yyyy-MM-dd") & "\关于" & r("姓名") & "同志退休的通知.doc"

主题：各位高手，我想在导出的报表加上固定的名称"关于＊＊＊同志退休的通知"，怎么加啊？