或者把J写成9,如下:
Dim Book As New XLS.Book(ProjectPath & "Attachments\下采购订单大料.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\下采购订单大料.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
' Sheet(3,9).Value = "<日期= # " & Date.Today & "#>" '写入打印条件
book.AddDataTable("采购明细表","XSC_ERP","Select * f rom {采购明细表} where 采购单号= '" & Tables("下采购订单_table2").current("采购单号") & "'") '添加父表
book.AddDataTable("供应商","XSC_ERP","Select * f rom {供应商} where 供应商简称= '" & Tables("下采购订单_table1").current("供应商名称") & "'") '添加父表
Dim dr As DataRow = DataTables("供应商").sqlfind("供应商代码= '" & Tables("下采购订单_table1").current("供应商代码") & "'")
Sheet(3,9).Value = dr("供应商简称")
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
报表不显示数据呢,整个报表都没显示数据了
[此贴子已经被作者于2019/11/15 9:27:12编辑过]