- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]word 报表问题求助高手！！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59954)
-- 发布时间：2014/11/14 16:19:00
-- [求助]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报表功能能实现吗？要怎么做？谢谢！！
-- 发布时间：2014/11/14 16:21:00
--
模版和例子发上来看看
-- 发布时间：2014/11/14 16:23:00
--
你这种，用excel做更好。
word报表，不能做列表的，只能一条一条的套打
-- 发布时间：2014/11/14 16:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码及模板.rar |
-- 发布时间：2014/11/14 16:32:00
--
我知道可以excel做，可是客户特别强调要提供word文档，不然就不用这样废神了
-- 发布时间：2014/11/14 16:33:00
--
word不能打印列表，做不到。
除非你弄成父子表，然后一行一行写死各行的位置，1、2、3、4、5
http://www.foxtable.com/help/topics/1300.htm
-- 发布时间：2014/11/14 16:35:00
--
唉~~~
-- 发布时间：2014/11/14 16:37:00
--
以下是引用cxqxjyzg在2014-11-14 16:35:00的发言：
唉~~~
你可以做一个父表，做一个子表，然后引用子表的某几行的数据即可。