|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
数据库技术
→
『 VFP论坛 』
→ 表单返回
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
3464
人关注过本帖
标题:
表单返回
只看楼主
加入收藏
wcx_cc
等 级:
贵宾
威 望:
52
帖 子:368
专家分:1157
注 册: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
快速回复:
表单返回
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.066036 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved