以文本方式查看主题 -  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=194226)

--  作者：wldhj --  发布时间：2024/11/20 16:08:00 --  [求助]Word模板 怎样根据已勾选的行生成Word报表每一个都单独存放在指定的文件夹里？比如勾选10行，就生成10个Word存放在指定的文件夹里。

--  作者：有点蓝 --  发布时间：2024/11/20 16:23:00 --   使用代码处理：http://www.foxtable.com/webhelp/topics/2890.htm Dim rs As List(Of Row) = Tables("出库").GetCheckedRows If rs.Count > 0 Then \'如果存在符合条件的行     Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件     For Each r As Row In rs \'逐行生成报表         Dim fl As String = ProjectPath & "Reports\\出库单" & r("编号") & ".doc" \'指定目标文件         Dim wrt As New WordReport(Tables("出库"), tm, fl) \'定义一个WordReport         wrt.BuildOne(r)         wrt.Quit     Next End If