主题：生成报表代码问题

在窗口中的生成报表按钮设如下代码，显示错误，请问老师是什么问题？

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

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

book.AddDataTable("征地记录表","zcxt","Selec t *, (selec t sum(Case When 征地数量 Is null Then 0 Else 征地数量 End *  Case When 政府征地补偿标准 Is null Then 0 Else 政府征地补偿标准 End,0 + Case When 青苗数量 Is null Then 0 Else 青苗数量 End * Case When 政府青苗补偿标准 Is null Then 0 Else 政府青苗补偿标准 End,0))  from {S征地明细} b where a.协议书编号=b.协议书编号 and a.第几期结算=b.第几期结算) As [政府补偿金额合计], (selec t sum(Case When 征地数量 Is null Then 0 Else 征地数量 End * Case When 业主征地补偿标准 Is null Then 0 Else 业主征地补偿标准 * 0.85 End,0 + Case When 青苗数量 Is null Then 0 Else 青苗数量 End * Case When 业主青苗补偿标准 Is null Then 0 Else 业主青苗补偿标准 * 0.85 End,0))  from {S征地明细} b where a.协议书编号=b.协议书编号 and a.第几期结算=b.第几期结算) As [业主补助金额合计] fro m {s征地记录} a " & IIF(DataTables("S征地记录").LoadFilter > ""," where " & DataTables("S征地记录").LoadFilter,""))

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

显示如下错误：