Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教Excel网页未出现。


  共有3241人关注过本帖树形打印复制链接

主题：请教Excel网页未出现。
帅哥哟，离线，有人找我吗？
lanbor
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		请教Excel网页未出现。  发帖心情 Post By：2020/4/30 15:27:00 [只看该作者]

运行结果如下：（包括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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/30 16:53:00 [只看该作者]


[此贴子已经被作者于2020/4/30 16:54:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/30 16:56:00 [只看该作者]

做个例子和模板发过来测试一下

 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		以下是直接代码+Excel模板  发帖心情 Post By：2020/4/30 17:06:00 [只看该作者]

以下是直接代码+Excel模板

以下是Excel 模板


以下是货单代码和JS


[此贴子已经被作者于2020/4/30 18:17:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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里各种验证影响到报表文件的获取，最好新建项目做个可以测试的实例发上来
 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		我把专家给的回复再单独写入:HttpRequest后还是无结果  发帖心情 Post By：2020/4/30 21:47:00 [只看该作者]

1. 我把专家给的回复再单独写入:HttpRequest后，还是仅能看到图片
2 .我又彻底的删除了FT系统，再下载了今天发布的20200501的最新版本，
3. 运行后，反而连唯一的Excel中的Logo 都看不到了。

再请专家帮我分析一下可能原因
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/30 21:53:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		我用专家的回复看到了空表  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		感谢专家多次指点。  发帖心情 Post By：2020/5/1 12:18:00 [只看该作者]

感谢专家多次引导逐级查错。
已经达到预期目的。
最终原因是我的Delivery 表结构出了问题引起的数据源错误。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询