以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何将多条数据批量导出并保存为多个独立的worb文档  (http://foxtable.com/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