- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]还是word报表问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76092)
-- 发布时间：2015/10/21 16:20:00
-- [求助]还是word报表问题
代码如下：
If Tables("职工信息").Current Is Nothing Then
Return
End If
Dim bendilujing As String
Dim tm As String = ProjectPath & "Attachments\\职工资料卡.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\职工资料卡.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("职工信息"),tm,fl) \'定义一个WordReport
For Each r As Row In Tables("职工信息").Rows
bendilujing = ProjectPath + "Images\\职工信息\\" + r("头像")
wrt.ReplaceWithImage("[头像]",bendilujing,100,120)
wrt.BuildOne(r) \'逐行生成报表
Next
wrt.Show() \'显示报表
生成的报表和报表模版如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:desktop.rar |
问题：
1、一共四条记录，但是头像都是第一个人的。
2、从第二页开始首行多了一个回车，导致不是每页显示一个人信息
求版主帮帮忙，谢谢
-- 发布时间：2015/10/21 16:25:00
--
在word模板里面最后一行，加入 小字号、小行距 的多个回车符号，可能可以解决。
-- 发布时间：2015/10/21 16:30:00
--
引用图片的问题呢？
-- 发布时间：2015/10/21 16:32:00
--
用实例五，直接用插入图片
http://www.foxtable.com/help/topics/2890.htm
-- 发布时间：2015/10/21 16:38:00
--
那ReplaceWithImage这个是狐表的问题吗？
-- 发布时间：2015/10/21 16:47:00
--
以下是引用智友软件工作室在2015/10/21 16:38:00的发言：
那ReplaceWithImage这个是狐表的问题吗？
那ReplaceWithImage这个是狐表的问题吗？
嗯嗯，是的它是整体替换的。