搜索
编程论坛
→
数据库技术
→
『 VFP论坛 』
→ 表单返回
标题:
表单返回
只看楼主
wcx_cc
等 级:
贵宾
威 望:
52
帖 子:352
专家分:1152
注 册:2015-10-2
第
11
楼
得分:0
楼主的意思是不是这样的?(点击表单的'确定'按钮,表单消失了并打开了电子表格,修改完电子表格并关闭后,表单自动重新出现了)
如果是:只有简单的5行代码即可解决.
新建文件夹.rar
(4.27 KB)
2020-02-24 00:06
杂七杂八
等 级:
新手上路
帖 子:217
专家分:7
注 册:2018-2-20
第
12
楼
得分:0
回复 10楼 吹水佬
2020-02-24 08:43
杂七杂八
等 级:
新手上路
帖 子:217
专家分:7
注 册:2018-2-20
第
13
楼
得分:0
回复 10楼 吹水佬
2020-02-24 08:43
杂七杂八
等 级:
新手上路
帖 子:217
专家分:7
注 册:2018-2-20
第
14
楼
得分:0
o=NewObject('Excel.Application')
o.Workbooks.Open(sys(5)+curdir()+"book1")
if MESSAGEBOX("已生成,要打开EXCEL吗?",1+256,"提示")==1
o.visible=.t.
RETURN
***到这里能正常打开EXCE并编辑,完成后点击关闭excel后回不到表单界面。
***请教代码怎么写,才能实现回到原表单界面***
…………
EndIf
o.Workbooks.Close
o.Quit
Release oExcel
Thisform.show
2020-02-25 19:14
杂七杂八
等 级:
新手上路
帖 子:217
专家分:7
注 册:2018-2-20
第
15
楼
得分:0
回复 7楼 gs2536785678
o=NewObject('Excel.Application')
o.Workbooks.Open(sys(5)+curdir()+"book1")
if MESSAGEBOX("已生成,要打开EXCEL吗?",1+256,"提示")==1
o.visible=.t.
o.windowstate=-4137&&****Excel窗口最大化,-4140&&&EXCEL窗口最小化
EndIf
o.Workbooks.Close
o.Quit
Release oExcel
Thisform.show
试过,成了。
2020-02-27 20:37
15
2/2页
1
2
参与讨论请移步原网站贴子:
https://bbs.bccn.net/thread-499323-1-1.html
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.150677 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved