以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  导合同  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174908)

--  作者：bzqlyj --  发布时间：2022/2/10 21:58:00 --  导合同 如何可让用word报表做合同，如生成的合同按单位名称单独成文档

--  作者：有点蓝 --  发布时间：2022/2/10 22:26:00 --   参考：http://www.foxtable.com/webhelp/topics/2890.htm，使用代码输出报表，可以指定保存为任何名称

--  作者：bzqlyj --  发布时间：2022/2/10 22:49:00 --   如果有很多家，能不能每家生成一个文件

--  作者：有点蓝 --  发布时间：2022/2/10 23:09:00 --   比如：     For Each dr As DataRow In drs \'逐行生成报表 Dim drs As List(of DataRow) = DataTables("出库").Select("出库日期 = #" & Date.Today & "#") \'筛选出符合条件的行 If drs.Count > 0 Then \'如果存在符合条件的行     Dim tm As String  = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件     Dim fl As String = ProjectPath & "Reports\\出库单" & dr("某家名称") & ".doc" \'指定目标文件     Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport         wrt.BuildOne(dr) wrt.Quit End If     Next