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

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

共有2806人关注过本帖树形打印复制链接主题：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编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/5/29 8:20:00 [只看该作者]

卸载重装office吧，一般都是你的word有问题.

excel的：

http://www.foxtable.com/help/topics/1145.htm

q2649295605

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/5/29 8:47:00 [只看该作者]

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()