| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- Excel报表生成网页 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178612) |
| -- 作者：一笑 -- 发布时间：2022/7/12 11:10:00 -- Excel报表生成网页 “风险卡”是一个外部数据表，参考用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 |
| -- 作者：有点蓝 -- 发布时间：2022/7/12 11:32:00 -- 报表数据很多？ 服务器有安装office吗？
|
| -- 作者：一笑 -- 发布时间：2022/7/12 11:37:00 -- 报表数据不多，用以下代码是有效的： Case "Reports\\ckd.htm" Dim Book As New XLS.Book(ProjectPath & "Attachments\\风险评估卡.xls") e.WriteBookAsHTML(Book) 服务器没有有安装office
|
| -- 作者：有点蓝 -- 发布时间：2022/7/12 11:44:00 -- 请上传实例测试 |
| -- 作者：一笑 -- 发布时间：2022/7/12 17:11:00 -- 找到原因了：1. 因为是外部表，应增加数据源：book.AddDataTable("风险卡","data","Select * fro m {风险卡} where 危险源名称 = \'货物检查\'"); 2."editrisk.htm" 前面要加Reports\\
谢谢！ |
| -- 作者：一笑 -- 发布时间：2022/7/21 16:26:00 -- 顺利实现Excel报表生成网页，但能否在网上页上增加一个按钮如： sb.AppendLine("<input Type=\'submit\' name=\'Sumbit\' id=\'Sumbit\' value=\'确定\'>") wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'直接跳转到首页 谢谢！
|
| -- 作者：有点蓝 -- 发布时间：2022/7/21 16:31:00 -- 添加不了 |
| -- 作者：一笑 -- 发布时间：2022/7/21 16:34:00 -- 主要是app中，如点手机返回键，就直接退出项目，（其他页面点手机返回键可返回前页） |