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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → word报表如何实现依次生成数据

共有3023人关注过本帖树形打印复制链接主题：word报表如何实现依次生成数据

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 9:20:00 [只看该作者]

我已经叫你弄一个新的表了啊，8行的内容，写到一行里面去，如列1，列2，列3，列4，列5，列6，列7，列8

如果觉得麻烦，你可以用excel模板来做，word做起来麻烦。

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/6/11 9:55:00 [只看该作者]

大红包版主啊。用excel做的模板。他说做不到这个效果。我也测试了一下。貌似也有点问题。具体可以看我上几楼的附件。

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/6/11 9:56:00 [只看该作者]

邮件合并是可以使用的。没有问题。但是foxtable应该也可以的。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 10:02:00 [只看该作者]

以下是引用monvzhilei在2015/6/11 9:55:00的发言：

大红包版主啊。用excel做的模板。他说做不到这个效果。我也测试了一下。貌似也有点问题。具体可以看我上几楼的附件。

Excel不可能做不到，只有word做不到(必须通过变通的方法来做)

http://www.foxtable.com/help/topics/1414.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 10:14:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:word报表依次打例子.rar

zhuzhi

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

加好友

发短信

等级：一尾狐帖子：476 积分：4039 威望：0 精华：0 注册：2011/11/2 8:55:00

Post By：2015/6/11 14:11:00 [只看该作者]

谢谢版主老师！我按照您范例的方法，自己尝试了下，生成报表，基本没有问题。但是，就是在导出职工照片时出现错误。

我原本设置的代码是：[&职工照片1,100, 75] [&职工照片2,100, 75]……导出后8张都是1个人的照片

之后我看了帮助，把代码改成[&职工照片&0,100, 75] [&职工照片&1,100, 75]……导出后只能显示第一个人的照片，其他的为空。

不知道我该怎么修改为好呢？

十分感谢！

[此贴子已经被作者于2015/6/11 14:41:41编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 14:39:00 [只看该作者]

参考代码

Dim tm As String = ProjectPath & "Attachments\依次打例子.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\依次打例子.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
For i As Integer = Tables("表A").TopPosition To Tables("表A").BottomPosition
wrt.Replace("[姓名" & i-Tables("表A").TopPosition+1 & "]", Tables("表A").Rows(i)("姓名"))
wrt.ReplaceWithImage("[图片" & i-Tables("表A").TopPosition+1 & "]", ProjectPath & "Attachments/" & Tables("表A").Rows(i)("图片").trim(chr(10)).split(chr(13))(0),100,75)
Next
wrt.Build() '生成报表
wrt.Show() '显示报表

ReplaceWithImage

方法，将指定的内容替换为图片，语法：

ReplaceWithImage(findstr,imagefile,width,height)

findstr: 字符型，指定要查找的内容
imgefile：字符型，用于替换的图片文件
width：整数型，指定图片宽度
height：整数型，指定图片高度

[此贴子已经被作者于2015/6/11 14:39:36编辑过]

zhuzhi

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

加好友

发短信

等级：一尾狐帖子：476 积分：4039 威望：0 精华：0 注册：2011/11/2 8:55:00

Post By：2015/6/11 14:59:00 [只看该作者]

谢谢您！我有2个问题，您代码里有2个图片，第一个图片是要替换的内容吧？我的模板，就是在职工图片那里标上了[&职工照片,100, 75]，那么我实际上就是要把模板里这段改成图片，以供代码识别？

第2次出现的“图片”，我的理解就是要在指定的文件夹里，根据父表，找出对应的图片来替换？我改成了"Attachments/" & Tables("表a").Rows(i)("职工照片").trim(chr(10)).split(chr(13))(0),100,75)，想表达把表a中“职工照片”字段对应的图片导入置换之前的图片，是这样子的吗？那么Attachments/是固定字段，还是要改成我存放图片的路径呢？

求老师指点，十分感谢！