wordreport做不了！不知道为什么？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → wordreport做不了！不知道为什么？

共有2682人关注过本帖树形打印复制链接主题：wordreport做不了！不知道为什么？

q2649295605

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

wordreport做不了！不知道为什么？ 发帖心情

Post By：2015/5/29 8:07:00 [显示全部帖子]

我是在一个窗口内，增加一个控件，编辑他的事件Click代码：

Dim tm As String = ProjectPath & "Attachments\入库清单.xsl" '指定模板文件

Dim fl As String = ProjectPath & "Reports\入库单.xsl" '指定目标文件

Dim wrt As New wordreport(Tables("入库清单"),tm,fl)

wrt.Build() '逐行生成报表

wrt.Show() '显示报表

为什么完成之后，我点击这个控件出报表的时候，软件卡死了！

如果我想用这个控件，生成EXCEL报表的话，应该怎么写？

[此贴子已经被作者于2015/5/29 8:08:30编辑过]

q2649295605

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

Post By：2015/5/29 8:42:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

我用了这个但是出单的时候出现这个报警运行错误：failed to open storage file

q2649295605

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

Post By：2015/5/29 8:51:00 [显示全部帖子]

有点不懂！还请不吝赐教！

("这个模版并不存在,当然出错!")

q2649295605

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

Post By：2015/5/29 8:54:00 [显示全部帖子]

If filesys.FileExists(ProjectPath & "Attachments\出库单.xls") = False Then
MessageBox.Show("这个模版并不存在,当然出错!")

Return
End If

这个起个什么作用？

q2649295605

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

Post By：2015/5/29 9:19:00 [显示全部帖子]

问题是模板是有的

q2649295605

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

Post By：2015/5/29 9:27:00 [显示全部帖子]

用你给的之后的那个程序可以出单了，就是搞不懂！

我也没重新做什么模板啊！所以问您那个IF是什么意思呢！

q2649295605

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

Post By：2015/5/29 9:32:00 [显示全部帖子]

后来后缀名也没改啊！

q2649295605

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00

Post By：2015/5/29 9:36:00 [显示全部帖子]

用这个程序出单出现运行错误：failed to open storage file

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
If filesys.FileExists(ProjectPath & "Attachments\出库单.xls") = False Then
MessageBox.Show("这个模版并不存在,当然出错!")

Return
End If
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

用这个程序就能出单！我也没改动模板和路径以及后缀！

所以请教

If filesys.FileExists(ProjectPath & "Attachments\出库单.xls") = False Then
MessageBox.Show("这个模版并不存在,当然出错!")

Return
End If

是什么意思！