你好,我有一个Word表,样子如下:
GRANDES DESTINATIONS |
CONFORT |
STANDING |
EXCLUSIVE |
LA PLAGNE |
175 |
220 |
320 |
ALBERTVILLE/ MERIBEL/ VALMOREL |
195 |
260 |
340 |
COURCHEVEL/ LESMENUIRES/ CHAMPAGNY |
210 |
265 |
350 |
模板为:
GDEST |
CONFORT |
STANDING |
EXCLUSIVE |
[GDEST] |
[CONFORT] |
[STANDING] |
[EXCLUSIVE] |
[GDEST] |
[CONFORT] |
[STANDING] |
[EXCLUSIVE] |
[GDEST] |
[CONFORT] |
[STANDING] |
[EXCLUSIVE] |
用的程序是:
Dim tm As String = ProjectPath & "Attachments\Model\UpdateModel.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\UpdateTest.doc" '指定目标文件
Dim wrt As New WordReport(Tables("x_UpdateInfoTable"),tm,fl) '定义一个WordReport
For Each r As Row In Tables("x_UpdateInfoTable").Rows '逐行生成报表
wrt.BuildOne(r)
Next
'wrt.Build() '逐行生成报表
wrt.Show() '显示报表
结果是:要么是只生成第一行,要么是每行生成一个表格。请教问题在什么地方。谢谢。
刘海屋