“风险卡”是一个外部数据表,参考用Excel报表生成网页,代码,无响应,求解,谢谢!
If e.Path.StartsWith("Reports\")
e.Resp
Select Case e.Path
Case "editrisk.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\风险评估卡.xls")
book.AddDataTable("风险卡","","Select * fro m {风险卡} where 危险源名称 = '货物检查'")
e.WriteBookAsHTML(Book)
Case Else
e.AsReportServer("Reports\")
End Select
End If