显示未声明名称“No”
Dim Book As New XLS.Book(ProjectPath & "Attachments\变更一览表.xlsx")
Dim fl As String = ProjectPath & "Reports\变更一览表.xlsx"
Dim filter As String = IIF(vars("变更信息表filter") > ""," where " & vars("变更信息表filter") & " and 承包人申报=1"," where 承包人申报=1")
book.AddDataTable("变更一览表","xlgl","Select *, (selec t 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)) fro m {申请费用表} b where a.项目名称=b.项目名称 and a.变更编号=b. 变更编号) As [估计变更金额] fro m {变更申请单} a " & filter)
vars("abcd") = No.1'
vars("bbcd") = No.2'
vars("cbcd") = No.3'
vars("dbcd") = No.4'
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2018/6/24 9:40:00 [只看该作者]
