2020年3月31日更新:
1、可以直接用Excel设计网页了,再也无需为复杂的呈现需求而头疼了,下面是一个示例:
1、首先打开CaseStudy目录下的示例文件"Excel报表.foxdb"文件。
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
3、在命令窗口执行:
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
现在在浏览器输入网址:
http://127.0.0.1/Reports/ckd.htm
即可得到网页: