主题：word报表如何实现依次生成数据

 word不行，需要有一个过渡表。

 比如弄一个表，表D，列1，列2，列3，列4，列5，列6，列7，列8

 选中表A，点击生成报表前，把数据填充到表D，然后模板根据表D设计。

我的意思是，你要多加一个表，才行。

具体可以上传例子。

word如果要做这种效果。先要加一个表，把8行的内容，填充到表的一行里面去。

然后根据新表设计报表即可。

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

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

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

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

参考代码

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

1、模板那里，像 姓名 一样，改成 姓名1、姓名2这样，改成 图片1、图片2......

2、运行代码即可。

 没必要一定要存到 Attachments 文件夹下

 红色代码的是可以改的

wrt.ReplaceWithImage("[图片" & i-Tables("表A").TopPosition+1 & "]", ProjectPath & "Attachments/" & Tables("表A").Rows(i)("图片").trim(chr(10)).split(chr(13))(0),100,75)