[求助]如何一次性生成多个word文档 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何一次性生成多个word文档

共有1533人关注过本帖树形打印复制链接主题：[求助]如何一次性生成多个word文档

witkeylaw

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

加好友

发短信

等级：童狐帖子：235 积分：2346 威望：0 精华：0 注册：2011/6/19 0:05:00

[求助]如何一次性生成多个word文档 发帖心情

Post By：2017/9/5 17:14:00 [只看该作者]

1、需求

选择多行记录（例如全部），执行命令：专业报表-批量输出单个WORD报表，能

下载信息 [文件大小：下载次数： ]
点击浏览该文件:批量输出多个报表文件.rar

。

例如生成的文件为

1广州.docx

2佛山.docx

……

2、现状

2.1 代码

打印输出-专业报表-报表管理-批量输出单个WORD报表

代码：

Dim tm As String = ProjectPath & "Attachments\地市.docx" '指定模板文件

Dim fl As String = ProjectPath & "Reports\" & Tables("信息").current("序号") & Tables("信息").current("区域") & ".docx" '指定目标文件

Dim wrt As New WordReport(Tables("信息"),tm,fl) '定义一个WordReport

wrt.Build() '逐行生成报表

wrt.Show() '显示报表

2.2生成结果

只能一次生成一个文件。

3、解决办法

请问如何处理

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 17:50:00 [只看该作者]

Dim tm As String = ProjectPath & "Attachments\地市.docx" '指定模板文件
Dim t As Table = Tables("信息")
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    Dim fl As String = ProjectPath & "Reports\" & r("序号") & r("区域") & ".docx" '指定目标文件
    Dim wrt As New WordReport(t,tm,fl) '定义一个WordReport
    wrt.Buildone(r) '逐行生成报表
    wrt.quit
Next

witkeylaw

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

加好友

发短信

等级：童狐帖子：235 积分：2346 威望：0 精华：0 注册：2011/6/19 0:05:00

Post By：2017/9/5 18:48:00 [只看该作者]

实现要求，谢谢。

下一主题 >> << 上一主题

主题：[求助]如何一次性生成多个word文档