标题:表存为EXCEL的问题
只看楼主
running_drea
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-3-16
 问题点数:0 回复次数:5 
表存为EXCEL的问题
点击表单中命令按钮,将表存为EXCLE文件。
COPY TO beiben.XLS TYPE XL5
=messagebox('数据已导出!',0+48+0,'提示')
运行时,显示导出的EXCLE文件,而messagebox不显示。鼠标点击其它地方后,导出的EXCLE文件才没有,messagebox才出现在表单上方。
如何才能运行后,messagebox直接在显示的EXCLE文件上方,或者不让EXCLE文件显示出来?
搜索更多相关主题的帖子: EXCEL 鼠标 EXCLE messagebox 文件 
2007-05-17 23:17
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
得分:0 
为什么在messagebox前有"="
把它去掉试试?

2007-05-18 07:58
running_drea
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-3-16
得分:0 

去掉“=”也不行。

2007-05-18 09:50
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
得分:0 
看这个可不可以:
if messagebox('确定导出数据吗?',1+48,'提示')=1
COPY TO beiben.XLS TYPE XL5
endif


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-18 10:05
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
得分:0 
突然发现,copy to excel根本就不会显示EXCEL文件本身啊?!
是不是前面程序的问题?

2007-05-19 08:53
running_drea
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-3-16
得分:0 
我是想把查询的结果导出EXCLE,代码如下
select num,name
from xinxi where zt="使用中"
COPY TO 使用中.XLS TYPE XL5
messagebox('数据已导出!',0+48+0,'提示')
thisform.grid1.refresh
thisform.refresh
2007-05-19 11:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-140314-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.689604 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved