以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打开存储文件失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147478)
|
-- 作者：nxqtxwz
-- 发布时间：2020/3/17 20:54:00
-- 打开存储文件失败
打开存储文件失败是什么问题呢
Case "order.xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\个人信息卡(有像片).xls")
Dim fl As String = ProjectPath & "Reports\\个人信息卡(有像片).xls"
book.AddDataTable("职工信息总表","学校档案","Select * f r om {职工信息总表} where 姓名 = \'aaa\'")
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
|
-- 作者：有点蓝
-- 发布时间：2020/3/17 20:59:00
--
文件已经被其它程序打开，无法打开或者保存。先关闭所有已经打开的execl文件，再试试
|
-- 作者：nxqtxwz
-- 发布时间：2020/3/17 21:07:00
--
我检查了，没有打开的文件 。请问临时表与数据表能不能同名呢？我数据源中的表名就是职工信息总表
Case "order.xls"。
Dim Book As New XLS.Book(ProjectPath & "Attachments\\个人信息卡(有像片).xls")
Dim fl As String = ProjectPath & "Reports\\个人信息卡(有像片).xls"
book.AddDataTable("职工信息总表","学校档案","Select * f r om {职工信息总表} where 姓名 = \'aaa\'")
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
|
-- 作者：有点蓝
-- 发布时间：2020/3/17 21:20:00
--
可以同名的
提示：
AddDataTable方法用于从后台提取数据生成一个临时表，由Excel报表模板根据此临时表生成报表。
例如上面的代码中，AddDataTable利用Select语句生成了一个临时表，表名为"员工"。
系统在生成Excel报表的过程中，优先调用AddDataTable生成的临时表，无需担心和现有同名表产生冲突。
|
-- 作者：nxqtxwz
-- 发布时间：2020/3/17 21:32:00
--
Case "order.xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\个人信息卡(有像片).xls") ‘说明这个文件没有打开
msgbox(1) \'这个都没显示
Dim fl As String = ProjectPath & "Reports\\个人信息卡(有像片).xls"
msgbox(2)
book.AddDataTable("职工信息总表","学校档案","Select * fr o m {职工信息总表} where 姓名 = \'aaa\'")
msgbox(3)
Book.Build()
msgbox(4)
Book.Save(fl)
msgbox(5)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2020/3/17 21:32:52编辑过]
|
-- 作者：有点蓝
-- 发布时间：2020/3/17 21:38:00
--
msgbox(ProjectPath & "Attachments\\个人信息卡(有像片).xls")显示什么内容？
文件不存在，或者没有权限打开，或者被其它程序打开。检查任务管理器是不是还有execl进程？项目是不是共享使用的？
|
-- 作者：nxqtxwz
-- 发布时间：2020/3/17 22:32:00
--
搞了半天是模板有问题，重做了一个好了。但excel文件是有服务器上显示的，不是显示在手机上。
Case "order.xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\信息表.xls")
msgbox(ProjectPath & "Attachments\\信息表.xls")
Dim fl As String = ProjectPath & "Reports\\信息表.xls"
msgbox(2)
book.AddDataTable("职工信息总表","学校档案","Select * fr om {职工信息总表} where 姓名 = \'王忠\'")
msgbox(3)
Book.Build()
msgbox(4)
Book.Save(fl)
msgbox(5)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
|