Dim Book As New XLS.Book(ProjectPath & "Attachments\资金使用状况表.xlsx")
Dim fl As String = ProjectPath & "Reports\资金使用状况表.xlsx"
book.AddDataTable("资金使用状况表","xlgl","Selec t *, (selec t sum(Case When 结算金额 Is null Then 0 Else 结算金额 End * 1) from {合同执行明细} b where a.项目名称=b.项目名称 and a.合同编号=b.合同编号) As [结算金额] from {合同信息表} a where a.费用类别 is not null " & IIF(DataTables("合同信息表").LoadFilter > ""," and " & DataTables("合同信息表").LoadFilter,""))
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
老师，改成这样，还是不行
加好友 
发短信
Post By：2018/9/1 9:45:00 [只看该作者]
此主题相关图片如下：1111.png
