主题：[求助]word 报表问题求助高手！！

此主题相关图片如下：图片3.png


此主题相关图片如下：图片2.png


此主题相关图片如下：图片1.png

我的本意是要用图三生成图二的word文档，可是生成的结果是图一，不符合我的要求，代码如下：

Dim tm As String  = ProjectPath & "Attachments\楚雄州烟草气象服五日预报.doc" '指定模板文件
Dim fn As String = ProjectPath & "Reports\楚雄州烟草气象服五日预报.doc" '指定目标文件
Dim wrt As New WordReport(Tables("五日预报"),tm,fn) '定义一个WordReport
'wrt.Build()

For Each r As Row In Tables("五日预报").rows '逐行生成报表
    wrt.BuildOne(r)
Next
wrt.quit

用word报表功能能实现吗？要怎么做？谢谢！！