以下代码显示表达式有错,检查很久,看不出,请老师帮诊断下Dim Book As New XLS.Book(ProjectPath & "Attachments\安全费用表.xlsx")
Dim fl As String = ProjectPath & "Reports\安全费用表.xlsx"
book.AddDataTable("安全费用表","xlgl","Selec t * ,Case When 数量 Is null Then 0 Else 数量 End * Case When 单价 Is null Then 0 Else 单价 End As [金额] fro m {安全费用表} " & IIF(DataTables("安全费用表").LoadFilter > ""," where " & DataTables("安全费用表").LoadFilter,""))
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
此主题相关图片如下:111111.png