Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel生成表内部函数可以生成文件，放入HttpRequest事件中想实现网页显示excel 提示无法将类型为“System.String”的对象强制转换为类型“Foxtable.XLS.Book”。


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

主题：excel生成表内部函数可以生成文件，放入HttpRequest事件中想实现网页显示excel 提示无法将类型为“System.String”的对象强制转换为类型“Foxtable.XLS.Book”。
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		excel生成表内部函数可以生成文件，放入HttpRequest事件中想实现网页显示excel 提示无法将类型为“System.String”的对象强制转换为类型“Foxtable.XLS.Book”。  发帖心情 Post By：2022/4/21 19:42:00 [只看该作者]

excel生成表内部函数可以生成文件，放入HttpRequest事件中想实现网页显示excel 提示无法将类型为“System.String”的对象强制转换为类型“Foxtable.XLS.Book”。

 

以下内容是专门发给有点蓝浏览

excel内部函数代码如下：【经测试可以正常生成表及数据】

Dim tbn As String = args(0) 'uuid传参

Dim Book As New XLS.Book(ProjectPath & "Attachments\财产收入情况申报表.xlsx")
Dim fl As String = ProjectPath & "Reports\财产收入情况申报表.xlsx"
book.AddDataTable("填报人信息","测试","Sele ct * from {填报人信息} where uuid= '" & tbn & "'") '添加父表
book.AddDataTable("亲属信息","测试","Sele ct * from {亲属信息} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("收入情况","测试","Sel ect * from {收入情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("存款情况","测试","Sel ect * from {存款情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("其他投资","测试","Sele ct * from {其他投资} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("债务情况","测试","Sele ct * from {债务情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("私人借款","测试","Sele ct * from {私人借款} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("债权情况","测试","Sel ect * from {债权情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("其他说明","测试","Sele ct * from {其他说明} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("经商办企业情况","测试","Sele ct * from {经商办企业情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("车辆情况","测试","Sele ct * from {车辆情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("房产情况","测试","Sele ct * from {房产情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("投资情况","测试","Se lect * from {投资情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("持有基金情况","测试","Sel ect * from {持有基金情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("持有期货","测试","Sele ct * from {持有期货} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("持有其他投资","测试","Sel ect * from {持有其他投资} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("投资公司企业情况","测试","Sel ect * from {投资公司企业情况} where uuid= '" & tbn & "'") '添加子表
book.AddDataTable("其他财产申报","测试","Sele ct * from {其他财产申报} where uuid= '" & tbn & "'") '添加子表
book.AddRelation("填报人信息","uuid","亲属信息","uuid") '建立关联
book.AddRelation("填报人信息","uuid","收入情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","存款情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","其他投资","uuid") '建立关联
book.AddRelation("填报人信息","uuid","债务情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","私人借款","uuid") '建立关联
book.AddRelation("填报人信息","uuid","债权情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","其他说明","uuid") '建立关联
book.AddRelation("填报人信息","uuid","经商办企业情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","车辆情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","房产情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","投资情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","持有基金情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","持有期货","uuid") '建立关联
book.AddRelation("填报人信息","uuid","持有其他投资","uuid")
book.AddRelation("填报人信息","uuid","投资公司企业情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","其他财产申报","uuid") '建立关联
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
'Dim Proc As New Process '打开工作簿
'Proc.File = fl
'Proc.Start()
vars("fl")=fl

 

 

在命令窗口中运行 Functions.Execute("excel","f9a4cb7f-2ea2-41aa-99c4-3d95bb7d04dd") 能够正常生成表及数据

 

 

HttpRequest事件中代码如下：

If e.Path.StartsWith("Reports\")
    e.Resp
    Select Case e.Path
        Case  "Reports\ckd.htm"
            Functions.Execute("excel","f9a4cb7f-2ea2-41aa-99c4-3d95bb7d04dd")
            MessageBox.Show(vars("fl"))
            e.WriteBookAsHTML(vars("fl"))
        Case  "Reports\jianli.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\财产收入情况申报表.xlsx")
            e.WriteBookAsHTML(Book)
        Case Else
            e.AsReportServer("Reports\")
    End Select
End If

 

运行提示：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：项目,HttpRequest
详细错误信息：
无法将类型为“System.String”的对象强制转换为类型“Foxtable.XLS.Book”。



图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：22.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/4/21 19:46:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

execl函数

Dim tbn As String = args(0) 'uuid传参

Dim e As RequestEventArgs = args(1)

Dim Book As New XLS.Book(ProjectPath & "Attachments\财产收入情况申报表.xlsx")

……
book.AddRelation("填报人信息","uuid","其他财产申报","uuid") '建立关联
Book.Build() '生成细节区
e.WriteBookAsHTML(Book)

HttpRequest事件中代码如下：

If e.Path.StartsWith("Reports\")
    e.Resp
    Select Case e.Path
        Case  "Reports\ckd.htm"
            Functions.Execute("excel","f9a4cb7f-2ea2-41aa-99c4-3d95bb7d04dd",e)
        Case  "Reports\jianli.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\财产收入情况申报表.xlsx")
            e.WriteBookAsHTML(Book)
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）execl函数Dim tbn As String = args(...  发帖心情 Post By：2022/4/21 21:06:00 [只看该作者]

老师 出现这个不完美了 有些字体没有显示出来  有没有办法直接显示呢？

 


图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看

 

如果内部函数excel

加上

Dim f2 As String = ProjectPath & "Reports\财产收入情况申报表.pdf

……

book.SaveToPDF(f2)
Dim Proc As New Process '打开工作簿
Proc.File = f2
Proc.Start()

e.WriteBookAsHTML(Book)

 

生成并打开的pdf文件又可以看见完整的内容……

 


图片点击可在新窗口打开查看此主题相关图片如下：23.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/4/21 21:14:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

样式的东西没有办法控制。要不然就直接返回pdf：http://www.foxtable.com/mobilehelp/topics/0288.htm
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）样式的东西没有办法控制。要不然就直...  发帖心情 Post By：2022/4/21 21:50:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：44.png
图片点击可在新窗口打开查看
e.WriteBookAsPDF 直接保存也是一样的效果

 

有没有办法直接把生成的pdf文件 加载到页面中再显示出来呢?

比如直接把如下的f2这个pdf显示在网页页面中

Book.Build() '生成细节区
'Book.Save(fl) '保存工作簿
'book.SaveToPDF(f2)
'Dim Proc As New Process '打开工作簿
'Proc.File = f2
'Proc.Start()

e.WriteBookAsPDF(Book)
[此贴子已经被作者于2022/4/21 21:53:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

更新到最新版本Foxtable

无法加载到页面中再显示，只能直接打开
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

execl函数
book.AddRelation("填报人信息","uuid","持有其他投资","uuid") 
book.AddRelation("填报人信息","uuid","投资公司企业情况","uuid") '建立关联
book.AddRelation("填报人信息","uuid","其他财产申报","uuid") '建立关联
'Book.Build() '去掉这句代码

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