- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- e.WriteBookAsHTML生成的exce报表网页显示不完整 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185893)
-- 发布时间：2023/3/23 23:04:00
-- e.WriteBookAsHTML生成的exce报表网页显示不完整
最近碰到e.WriteBookAsHTML生成的exce报表网页显示不完整，很是头疼，具体是这样子操作的：
一、HttpRequest中代码：
二、让接口发送Excel报表文件，输入以下地址：
http://127.0.0.1:8000/rep/fswj?id=24
服务器能正常返回excle文件，点击后自动打execl且显示正常：
二、在浏览器中直接查看Excel报表，输入以下地址：
服务器能正常返回excle文件，点击后网页显示不完整：标题和第一列缺失。
请问老师，这该如何解决？
[此贴子已经被作者于2023/3/23 23:14:26编辑过]
-- 发布时间：2023/3/24 8:30:00
--
代码放到记事本发上来
-- 发布时间：2023/3/24 17:49:00
--
代码文件作为附件在贴子中上传了，但找不到上传的附件在哪里？
-- 发布时间：2023/3/24 17:53:00
--
这是我上传的代码文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
-- 发布时间：2023/3/25 9:28:00
--
试试
Dim tj As String = "id =" & e.Values("id")
Dim sql As String = "select * from {用车申请} where " & tj
Dim book As New XLS.Book("./Attachments/pcd.xls")
If e.Path.StartsWith("rep\\") Then
e.ResponseEncoding = "gb2312" \'这里要正确设置编码格式, 否则会乱码
Select Case e.Path
Case "rep\\llck"
book.AddDataTable("用车申请", "gcsygl", sql)
book.Build()
e.WriteBookAsHTML(book)
Case Else
e.AsReportServer("rep\\")
End Select
Else
Select Case e.Path
Case "hhxz" \'以html方式返回下载信息
book.AddDataTable("用车申请", "gcsygl", sql)
book.Build()
Dim fl As String = "./Reports/pcd00.xls"
book.Save(fl)
Dim str As String = "报表已生成！请单击<a href = \'" & fl & "\'>下载</a>"
e.WriteString(str)
Case "rep2\\fswj" \'不要和生成网页的使用同样的前缀，前端这样访问：http://127.0.0.1:8000/rep2/fswj?id=24
book.AddDataTable("用车申请", "gcsygl", sql)
book.Build()
book.prebuild = False
e.WriteBook(book, "emp.xls", False)
End Select
End If
[此贴子已经被作者于2023/3/25 9:28:52编辑过]
-- 发布时间：2023/3/25 13:25:00
--
有点蓝老师，试了，还是老问题。
-- 发布时间：2023/3/25 13:55:00
--
请上传实例测试
-- 发布时间：2023/3/25 19:33:00
--
好的，辛苦有点蓝老师了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报表打印.rar |
-- 发布时间：2023/3/26 20:12:00
--
请老师帮忙再指点一下，感谢！
-- 发布时间：2023/3/26 20:32:00
--
应该是个bug，已反馈。临时解决方法，在模板ab列之间增加一个空列，
