主题：[求助]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报表功能能实现吗？要怎么做？谢谢！！

模版和例子发上来看看

 你这种，用excel做更好。

 

 word报表，不能做列表的，只能一条一条的套打

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码及模板.rar

我知道可以excel做，可是客户特别强调要提供word文档，不然就不用这样废神了

 word不能打印列表，做不到。

 

 除非你弄成父子表，然后一行一行写死各行的位置，1、2、3、4、5

 

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

 

唉~~~

 

 

 

 

你可以做一个父表，做一个子表，然后引用子表的某几行的数据即可。