以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Me在Fox中怎么改的？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51517)
--  作者：aalons
--  发布时间：2014/5/28 6:31:00
--  [求助]Me在Fox中怎么改的？
Dim doNotSaveChanges As Object = Word.WdSaveOptions.wdDoNotSaveChanges
Me.Close(doNotSaveChanges, missing, missing)



如上这个代码如何在Fox中运行
--  作者：Bin
--  发布时间：2014/5/28 8:31:00
--  
basemainform.Close
--  作者：有点甜
--  发布时间：2014/5/28 9:38:00
--  
 问题请具体
--  作者：aalons
--  发布时间：2014/5/28 9:46:00
--  
就是打开的文件不保存不跳出对话框直接关闭
--  作者：Bin
--  发布时间：2014/5/28 9:48:00
--  

BeforeCloseProject 事件


e.SkipSave=true



无须这么麻烦.  这些知识帮助就有介绍.
--  作者：aalons
--  发布时间：2014/5/28 9:55:00
--  
不好意思我错了，我把问题描述清楚：我的意思是打开的WORD外部文件，在导出报表的时候将WORD进程关闭掉，防止导出时候出现莫名错误。
[此贴子已经被作者于2014-5-28 9:57:12编辑过]
--  作者：有点甜
--  发布时间：2014/5/28 9:57:00
--  
以下是引用aalons在2014-5-28 9:55:00的发言：
不好意思我错了，我把问题描述清楚：我的意思是打开的WORD外部文件，在导出报表的时候将WORD进程关闭掉，防止进程停止。

 

不明所指，如果是vba就这样改

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc As object = app.Documents.Open(fileName)
    Doc.Tables(1).AutoFitBehavior(MSWord.WdAutoFitBehavior.wdAutoFitWindow)
    Doc.saved = True
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try
--  作者：jspta
--  发布时间：2014/5/28 10:02:00
--  
以下是引用aalons在2014-5-28 9:55:00的发言：
不好意思我错了，我把问题描述清楚：我的意思是打开的WORD外部文件，在导出报表的时候将WORD进程关闭掉，防止导出时候出现莫名错误。
那你在创建Word进程的时候赋值一个变量appWD，最后要关闭的时候 appWD.close就可以了。
--  作者：aalons
--  发布时间：2014/5/28 10:48:00
--  
以下是引用jspta在2014-5-28 10:02:00的发言：
那你在创建Word进程的时候赋值一个变量appWD，最后要关闭的时候 appWD.close就可以了。


问题是这个Word进程（模版和报表）是用户打开的，我们又不知道他什么时候打开的，我就想在导出报表前，关闭模版和报表，就是进行一个环境的检测
--  作者：有点甜
--  发布时间：2014/5/28 10:51:00
--  

 之前不是告诉过你，直接把窗口关闭？

 

ShowAppWindow("test", 5)