主题：报表代码错误

Dim Book As New XLS.Book(ProjectPath & "Attachments\征地记录表.xls")

Dim fl As String = ProjectPath & "Reports\征地记录表.xls"

book.AddDataTable("S征地记录","","Select *, 征地数量*政府征地补偿标准+青苗数量*政府青苗补偿标准as [政府补偿金额合计(元)], 征地数量*业主征地补偿标准*0.85+青苗数量*业主青苗补偿标准*0.85 as [业主补助金额合计(元)] fro m {S征地明细} where " & DataTables("S征地记录").LoadFilter)

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()