- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 输出固定格式报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193828)
-- 发布时间：2024/10/18 11:53:00
-- 输出固定格式报表
使用以下命令、符合条件的有很多清单、但是输出却只有一条记录；公式错在哪里啦？
Dim dt1 As Date
dt1 = Date.Now
For i As Integer = 0 To Tables("清单表").Rows.count - 1
Tables("清单表").Position = i
Dim r As Row = Tables("清单表").Rows(i)
Dim Book As New XLS.Book(ProjectPath & "Attachments\\清单表.xlsx") \'打开模板
Dim fl As String = "D:\\拆分\\清单表\\" & r("网格") & "网格(清单).xls" \'指定目标文件
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
Next
MessageBox.show("完成【各站段低值易耗品台账表】输出工作!!!", "非常关键提醒")
此主题相关图片如下：3.png
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2024/10/18 12:14:00
--
如果要输出关联表，参考：http://www.foxtable.com/webhelp/topics/0204.htm
-- 发布时间：2024/12/2 16:39:00
--
For i As Integer = 0 To Tables("拆分条件表").Rows.count - 1
Tables("拆分条件表").Position = i
Dim r As Row = Tables("拆分条件表").Rows(i)
Dim Book As New XLS.Book(ProjectPath & "Attachments\\"& e.Form.Controls("输出表模板名称").text) \'打开模板
\'Dim fl As String = ProjectPath & "Reports\\" & r("列表项目1") & ".xls" \'在当前目录下输出报表
Dim fl As String = e.Form.Controls("输出文件路径").text & e.Form.Controls("输出文件名称").text & e.Form.Controls("左符号").text & r(e.Form.Controls("拆分条件表1").text) & e.Form.Controls("中符号").text & r(e.Form.Controls("拆分条件表2").text) & e.Form.Controls("右符号").text & "网格.pdf" \'指定目标文件
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
把输出文件设置为PDF文件；输出后PDF文件打不开。要怎么处理？（输出为XLS文件就可以正常打开）
-- 发布时间：2024/12/2 16:47:00
--
http://www.foxtable.com/webhelp/topics/2930.htm