请教Excel网页未出现。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

运行结果如下：（包括Excel模板）

只是在网页中显示的 Excel 模板文件中的 Logo ，表内容没有出现！

此主题相关图片如下：webreport.png

原文件如下：

If e.Path.StartsWith("WebReport\") ''当前请求是否有Excel报表

e.Resp

Select Case e.Path

Case "WebReport\deliveryRerport.htm"

Dim Book As New XLS.Book(ProjectPath & "Attachments\CY_Delivery.xls")

book.AddDataTable("mtable","sytApp","Select * fr om {Delivery_master} where doc_no = '" & e.GetValues("poID") & "'")

book.AddDataTable("stable","sytApp","Select * fr om {Delivery} where item_po_number = '" & e.GetValues("poID") & "'")

book.AddRelation("mtable","doc_no","stable","item_po_number") '建立关联

e.WriteBookAsHTML(Book)

Case "WebReport\ReceivedReport.htm"

Dim Book As New XLS.Book(ProjectPath & "Attachments\CY_Received.xls")

e.WriteBookAsHTML(Book)

Case Else

e.AsReportServer("WebReport\")

End Select

end if

请教专家，可能是什么原因？

谢谢你！

[此贴子已经被作者于2020/4/30 15:28:37编辑过]

以下是直接代码+Excel模板

以下是Excel 模板

以下是货单代码和JS

[此贴子已经被作者于2020/4/30 18:17:44编辑过]

1. 我把专家给的回复再单独写入:HttpRequest后，还是仅能看到图片

2 .我又彻底的删除了FT系统，再下载了今天发布的20200501的最新版本，

3. 运行后，反而连唯一的Excel中的Logo 都看不到了。

再请专家帮我分析一下可能原因

我用专家回复的代码（httprequest 主只有下面的代码了），这就是实例呀：

Excel 模块文件也是发出来过的。

Dim st1 As Boolean=True '传递是否保存成功

If e.Path.StartsWith("WebReport\") ''当前请求是否有Excel报表

Select Case e.Path

Case "WebReport\deliveryRerport.htm"

Dim Book As New XLS.Book(ProjectPath & "Attachments\CY_Delivery.xls")

e.WriteBookAsHTML(Book)

Case "WebReport\ReceivedReport.htm"

Dim Book As New XLS.Book(ProjectPath & "Attachments\CY_Received.xls")

e.WriteBookAsHTML(Book)

Case Else

e.AsReportServer("WebReport\")

End Select

End If

得到了以下空表格了：

此主题相关图片如下：excelreport.png

新的问题就是：我应该怎么加数据源呢，因为我写上数据源代码就又看不到表格了？

[此贴子已经被作者于2020/4/30 22:47:26编辑过]

感谢专家多次引导逐级查错。

已经达到预期目的。

最终原因是我的Delivery 表结构出了问题引起的数据源错误。

主题：请教Excel网页未出现。