- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教Excel网页未出现。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149405)
-- 发布时间：2020/4/30 15:27:00
-- 请教Excel网页未出现。
运行结果如下：（包括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编辑过]
-- 发布时间：2020/4/30 16:53:00
--
[此贴子已经被作者于2020/4/30 16:54:16编辑过]
-- 发布时间：2020/4/30 16:56:00
--
做个例子和模板发过来测试一下
-- 发布时间：2020/4/30 17:06:00
-- 以下是直接代码+Excel模板
以下是直接代码+Excel模板
以下是Excel 模板
以下是货单代码和JS
[此贴子已经被作者于2020/4/30 18:17:44编辑过]
-- 发布时间：2020/4/30 17:59:00
--
我单独这样测试是可以的
Dim st1 As Boolean=True \'传递是否保存成功
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")
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
应该是您httprequest里各种验证影响到报表文件的获取，最好新建项目做个可以测试的实例发上来
-- 发布时间：2020/4/30 21:47:00
-- 我把专家给的回复再单独写入:HttpRequest后还是无结果
1. 我把专家给的回复再单独写入:HttpRequest后，还是仅能看到图片
2 .我又彻底的删除了FT系统，再下载了今天发布的20200501的最新版本，
3. 运行后，反而连唯一的Excel中的Logo 都看不到了。
再请专家帮我分析一下可能原因
-- 发布时间：2020/4/30 21:53:00
--
请上传实例测试
-- 发布时间：2020/4/30 22:43:00
-- 我用专家的回复看到了空表
我用专家回复的代码（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编辑过]
-- 发布时间：2020/4/30 23:06:00
--
我使用安装目录里的execl报表项目，使用这个代码测试没有问题
If e.Path.StartsWith("Reports\\")
e.Resp
Select Case e.Path
Case "Reports\\ckd.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
book.AddDataTable("出库","","Select * from {出库} where 出库单编号= \'CK-20030726001\'") \'添加父表
book.AddDataTable("出库明细","","Select * from {出库明细} where 出库单编号= \'CK-20030726001\'") \'添加子表
book.AddRelation("出库","出库单编号","出库明细","出库单编号") \'建立关联
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
然后我把"出库"、"出库明细"重定向到SqlServer数据库，加上数据源测试一样没有问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:casestudy.zip |
-- 发布时间：2020/5/1 12:18:00
-- 感谢专家多次指点。
感谢专家多次引导逐级查错。
已经达到预期目的。最终原因是我的Delivery 表结构出了问题引起的数据源错误。