- 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=71637)
-- 发布时间：2015/7/15 14:10:00
-- word生成问题
请教如何根据word模板，将每行数据生成单独一个word文件？谢谢！
-- 发布时间：2015/7/15 14:13:00
--
循环每一行生成
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
For Each r As Row In Tables("表A").Rows
Tables("表A").Position = r.Index
Dim fl As String = ProjectPath & "Reports\\" & r("第一列") & ".doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.quit
Next
-- 发布时间：2015/7/15 14:24:00
--
谢谢！我如果连续生成在一个word中，用这个方法，会出现word格式变动了，每页多增加了一行，如图，第二页学校名称也没绑定上呢
If drs.Count > 0 Then \'如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
For Each dr As DataRow In drs \'逐行生成报表
wrt.BuildOne(dr)
Next
wrt.Show() \'显示报表
End If
-- 发布时间：2015/7/15 14:25:00
--
模板有问题，应该是你多加了回车。
或者例子发上来测试。
-- 发布时间：2015/7/15 14:28:00
--
如果每页一个文件，就这样写
Dim drs As List(of DataRow) = DataTables("出库").Select("出库日期 = #" & Date.Today & "#") \'筛选出符合条件的行
If drs.Count > 0 Then \'如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
For Each dr As DataRow In drs \'逐行生成报表
Dim fl As String = ProjectPath & "Reports\\" & dr("第一列") & ".doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.BuildOne(dr)
wrt.quit
Next
End If
-- 发布时间：2015/7/15 14:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.rar |
-- 发布时间：2015/7/15 14:55:00
--
收到没？
-- 发布时间：2015/7/15 15:04:00
--
这样生成的是单个文件,我想生成在一个文件中呢.把例子放上去了.
-- 发布时间：2015/7/15 15:16:00
--
求救，着急！
-- 发布时间：2015/7/15 15:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:template.rar |