Foxtable(狐表) → 用户栏目 → 专家坐堂 → Excel报表生成网页


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

主题：Excel报表生成网页
帅哥哟，离线，有人找我吗？
一笑
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		Excel报表生成网页  发帖心情 Post By：2022/7/12 11:10:00 [显示全部帖子]

“风险卡”是一个外部数据表，参考用Excel报表生成网页，代码，无响应，求解，谢谢！
If e.Path.StartsWith("Reports\")
    e.Resp
    Select Case e.Path
        Case "editrisk.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\风险评估卡.xls")
            book.AddDataTable("风险卡","","Select * fro  m {风险卡} where 危险源名称 = '货物检查'")
            e.WriteBookAsHTML(Book)
        Case Else
            e.AsReportServer("Reports\")
    End Select
End If
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2022/7/12 11:37:00 [显示全部帖子]

报表数据不多，用以下代码是有效的：
        Case "Reports\ckd.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\风险评估卡.xls")
            e.WriteBookAsHTML(Book)
服务器没有有安装office
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2022/7/12 17:11:00 [显示全部帖子]

找到原因了：1. 因为是外部表，应增加数据源：book.AddDataTable("风险卡","data","Select * fro  m {风险卡} where 危险源名称 = '货物检查'");
2."editrisk.htm" 前面要加Reports\
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2022/7/21 16:26:00 [显示全部帖子]

顺利实现Excel报表生成网页，但能否在网上页上增加一个按钮如：
sb.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>") 
wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2022/7/21 16:34:00 [显示全部帖子]

主要是app中，如点手机返回键，就直接退出项目，（其他页面点手机返回键可返回前页）

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询