- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Word报表生成问题，谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71059)
-- 发布时间：2015/7/3 22:13:00
-- Word报表生成问题，谢谢
批量生成没有问题。就是想请教一下，如何按选取的行数生成单独的报表。谢谢
-- 发布时间：2015/7/3 22:14:00
--
比如说，选取了n行数据，希望生成n个相同模板的报表
-- 发布时间：2015/7/4 9:03:00
--
参考一：
http://www.foxtable.com/help/topics/1597.htm
参考二：
http://www.foxtable.com/help/topics/2890.htm
组合起来：
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
With Tables("订单")
For i as Integer = .TopPosition To .BottomPosition
wrt.BuildOne(.rows(i))
Next
End With
wrt.Show() \'显示报表
-- 发布时间：2015/7/4 23:32:00
-- 回复：（狐狸爸爸）参考一：http://www.foxtable.com/...
老师，按示例做了，达不到效果呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2015/7/5 9:13:00
--
参考代码
With Tables("订单")
For i As Integer = .TopPosition To .BottomPosition
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.BuildOne(.rows(i))
wrt.Show() \'显示报表
Next
End With
-- 发布时间：2015/7/6 11:02:00
-- 回复：（大红袍）?参考代码?With Table...
如果希望能够按照“姓名”列，将选定的n行生成的Word文件进行保存，该如何实现？WordReport里面好像没有保存的属性呢？请老师指教，谢谢 而且使用“show”，之前的word文档会一闪而过
[此贴子已经被作者于2015/7/6 11:05:00编辑过]
-- 发布时间：2015/7/6 11:06:00
--
红色的路径，就是生成的报表的文件。
With Tables("订单")
For i As Integer = .TopPosition To .BottomPosition
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.BuildOne(.rows(i))
wrt.Show() \'显示报表
Next
End With