Foxtable(狐表) → 用户栏目 → 专家坐堂 → e.WriteBookAsHTML生成的exce报表网页显示不完整


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

主题：e.WriteBookAsHTML生成的exce报表网页显示不完整
帅哥哟，离线，有人找我吗？
zxlid
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：229 积分：2840 威望：0 精华：0 注册：2012/2/25 22:10:00 		e.WriteBookAsHTML生成的exce报表网页显示不完整  发帖心情 Post By：2023/3/23 23:04:00 [只看该作者]

最近碰到e.WriteBookAsHTML生成的exce报表网页显示不完整，很是头疼，具体是这样子操作的：

一、HttpRequest中代码：

二、让接口发送Excel报表文件，输入以下地址：

http://127.0.0.1:8000/rep/fswj?id=24

服务器能正常返回excle文件，点击后自动打execl且显示正常：

二、在浏览器中直接查看Excel报表，输入以下地址：

127.0.0.1:8000/rep/llck?id=24

服务器能正常返回excle文件，点击后网页显示不完整：标题和第一列缺失。

请问老师，这该如何解决？

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


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

代码放到记事本发上来

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


加好友 发短信
等级：童狐 帖子：229 积分：2840 威望：0 精华：0 注册：2012/2/25 22:10:00 		  发帖心情 Post By：2023/3/24 17:49:00 [只看该作者]

代码文件作为附件在贴子中上传了，但找不到上传的附件在哪里？

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


加好友 发短信
等级：童狐 帖子：229 积分：2840 威望：0 精华：0 注册：2012/2/25 22:10:00 		  发帖心情 Post By：2023/3/24 17:53:00 [只看该作者]

这是我上传的代码文件：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


加好友 发短信
等级：童狐 帖子：229 积分：2840 威望：0 精华：0 注册：2012/2/25 22:10:00 		  发帖心情 Post By：2023/3/25 13:25:00 [只看该作者]

有点蓝老师，试了，还是老问题。

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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/25 13:55:00 [只看该作者]

请上传实例测试

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


加好友 发短信
等级：童狐 帖子：229 积分：2840 威望：0 精华：0 注册：2012/2/25 22:10:00 		  发帖心情 Post By：2023/3/25 19:33:00 [只看该作者]

好的，辛苦有点蓝老师了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:报表打印.rar
 回到顶部
帅哥哟，离线，有人找我吗？
zxlid
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：229 积分：2840 威望：0 精华：0 注册：2012/2/25 22:10:00 		  发帖心情 Post By：2023/3/26 20:12:00 [只看该作者]

请老师帮忙再指点一下，感谢！

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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/26 20:32:00 [只看该作者]

应该是个bug，已反馈。临时解决方法，在模板ab列之间增加一个空列，

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:pcd.zip
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询