主题：打印报表代码问题

Dim Book As New XLS.Book(ProjectPath & "Attachments\变更统计表1.xlsx")

Dim fl As String = ProjectPath & "Reports\变更统计表1.xlsx"

book.AddDataTable("变更统计表1","xlgl","Select *, (select sum(Round(Case When 变更后数量 Is null Then 0 Else 变更后数量 End * Case When 单价 Is null Then 0 Else 单价 End,0) - Round(Case When 变更前数量 Is null Then 0 Else 变更前数量 End * Case When 单价 Is null Then 0 Else 单价 End,0))  from {申请费用表} b where a.项目名称=b.项目名称 and a.变更编号=b. 变更编号) As [估计变更金额] from {变更申请单} a " & IIF(vars("变更信息表filter") > ""," where " & vars("变更信息表filter"),""))

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

2、

Dim str = DataTables("变更申请单").SQLGetComboListString("项目名称+变更编号", DataTables("变更申请单").LoadFilter & “ and 业主审批=1”)

msgbox（"项目名称+变更编号 in ('" & str & "')"）