生成模板文件红色部分代码换成内部表【数据表】怎么写呢？也是同样要查找d1= '" & Product & "'符合条件的内容

麻烦老师看看谢谢

当前代码如下：

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 fl As String = ProjectPath & "Reports\" & t2 & "\" & t2 & "-" & Product & ".xls"

book.AddDataTable("数据表","wj","Sel ect * from {数据表} where d1= '" & Product & "' ")

FileSys.CreateDirectory(ProjectPath & "Reports\" & t2 & "\")

Book.Build()

Book.Save(fl)

d1= '" & Product & "' 这个怎么定义过去呢？变量么？

Sheet(行,列).Value = "<d1 = '" & Product & "'>" '写入打印条件

老师现在代码如下后永远都只生成了第一条数据所有的年度表都是只有一样的一条数据附上模板文件麻烦老师帮忙看看

我初步分析了一下我是不是还应该加一个全选当前数据表然后再进行文件生成？

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)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:模板.xlsx

应该先选中，需要通过模板生成文件的记录，再点通过模板生成。

[此贴子已经被作者于2021/7/17 21:04:58编辑过]

h2单元格才是放条件的。认真看一下帮助

Sheet(1,7).Value = "<d1 = '" & Product & "'>"

主题：生成模板文件 红色部分代码换成内部表【数据表】 怎么写呢？ 也是同样要查找d1= '" & Product & "'符合条件的内容

主题：生成模板文件红色部分代码换成内部表【数据表】怎么写呢？也是同样要查找d1= '" & Product & "'符合条件的内容