专家坐堂-直接用Excel报表设计网页示例提示错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

2、将HttpRequest事件代码设置为：

If e.Path.StartsWith("Reports\\")
    e.ResponseEncoding = "gb2312"
    Select Case e.Path
        Case  "Reports\\ckd.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
            e.WriteBookAsHTML(Book)
       Case  "Reports\\jianli.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\\资料卡.xls")
            e.WriteBookAsHTML(Book)
        Case Else
            e.AsReportServer("Reports\\")
    End Select
End If

却提示如下错误

图片点击可在新窗口打开查看此主题相关图片如下：错误.png