- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 输出固定格式报表 (http://foxtable.com/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