模板的条件仅对父表有效，是否中标是子表的列，无法设置条件，只能是根据条件重新加载资本的数据，打印后再还原数据
打印按钮：
Tables("采购报价表").StopRedraw
Dim filter2 As String = Tables("采购报价表").Filter
Dim filter As String = DataTables("采购报价表").LoadFilter
DataTables("采购报价表").LoadFilter = " 是否中标 = true"
DataTables("采购报价表").Load
Dim Book As New XLS.Book(ProjectPath & "Attachments\固定资产购建审批表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\固定资产购建审批表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成报表
Book.Save(fl)
DataTables("采购报价表").LoadFilter = filter
DataTables("采购报价表").Load
Tables("采购报价表").Filter = Filter2
Tables("采购报价表").ResumeRedraw
Dim Proc As New Process
Proc.File = fl
proc.Verb = "Print"
Proc.Start()
加好友 
发短信
Post By：2021/4/5 20:55:00 [显示全部帖子]
