以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何将多条数据批量导出并保存为多个独立的worb文档  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187511)

--  作者：zyxhx --  发布时间：2023/7/22 19:52:00 --  如何将多条数据批量导出并保存为多个独立的worb文档 老师：请问如何将多条数据批量导出并保存为多个独立的worb文档？就是一条数据一个文档的形式。

--  作者：有点蓝 --  发布时间：2023/7/24 9:03:00 --   参考：http://www.foxtable.com/webhelp/topics/2890.htm，比如 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) \'定义一个WordRepor         wrt.BuildOne(dr)         wrt.Quit()      Next End If