Foxtable(狐表)用户栏目专家坐堂 → 难题


  共有2397人关注过本帖平板打印复制链接

主题:难题

帅哥哟,离线,有人找我吗?
yongxuanchen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1986 威望:0 精华:0 注册:2015/2/16 13:29:00
难题  发帖心情 Post By:2015/6/7 0:05:00 [只看该作者]

Dim tm As String  = ProjectPath & "Attachments\1.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\1.doc" '指定目标文件
Dim wrt As New WordReport(Tables("信息表"),tm,fl) '定义一个WordReport
wrt.Build() '生成报表
'wrt.Show() '显示报表
wrt.quit
Dim app As New MSWord.Application
try
    Dim fileName = fl
    Dim doc = app.Documents.Open(fileName)
    doc.Protect (Password:="123456", NoReset:=False, Type:= _
    MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
    app.Documents.save
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
 End try
Dim Proc As New Process
Proc.File =  "Reports\1.doc"  ' 指定要执行的文件
Proc.Start()

 

这段代码在程序发布后,在生成报表时出错,提示系统找不到指定文件。请问是不是要在发布的时候添加附件才可以,程序在开发文件中完全正常运行。求解决方法

[此贴子已经被作者于2015/6/7 0:07:06编辑过]

 回到顶部