模板的条件仅对父表有效,是否中标是子表的列,无法设置条件,只能是根据条件重新加载资本的数据,打印后再还原数据
打印按钮:
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()