打印按钮代码如下：
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("供应商代码") & "'") '添加父表
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
提示：子细节区必须嵌套在父表细节区内，难道不是关联表，不是父表和子表关系，就不能引用了吗
加好友 
发短信
Post By：2019/11/14 15:53:00 [只看该作者]
