老师 现在代码如下后 永远都只生成了第一条数据 所有的年度表都是只有一样的一条数据 附上模板文件 麻烦老师帮忙看看
我初步分析了一下 我是不是还应该加一个全选当前数据表 然后再进行文件生成？
Dim Products As List(Of String)
Products = DataTables("数据表").SQLGetValues("d1","","d1")
For Each Product As String In Products
'output.show(Product)
Dim Products1 As List(Of String)
Products1 = DataTables("数据表").SQLGetValues("d9","d1='" & Product & "'","d1")
For Each Product1 As String In Products1
Dim t1 As String=Product1
Dim Values() As String
Values = t1.split(".")
Dim t2 As String=Values(0)
output.show(t2)
Dim Book As New XLS.Book(ProjectPath & "Attachments\模板.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,4).Value = "<d1 = '" & Product & "'>" '写入打印条件
Dim fl As String = ProjectPath & "Reports\" & t2 & "\" & t2 & "-" & Product & ".xls"
'book.AddDataTable("数据表","wj","Se lect * from {数据表} where d1= '" & Product & "' ")
FileSys.CreateDirectory(ProjectPath & "Reports\" & t2 & "\")
Book.Build()
Book.Save(fl)
Next
Next
加好友 
发短信
Post By：2021/7/14 13:31:00 [显示全部帖子]
