| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 548 人关注过本帖
标题:[求助]又麻烦Tiger5392来看看!!(以解决)
只看楼主 加入收藏
lingkai
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-4-26
收藏
 问题点数:0 回复次数:4 
[求助]又麻烦Tiger5392来看看!!(以解决)
我都不好意思了,老是麻烦你!就是您前两天给我说的,现在导入差不多解决了,还有导出是把dbf导出来成excel文件。
您给我了一段代码,是这样的:(导出的click)
STORE .F. TO YESNO
IF FILE(THISFORM.TEXT1.VALUE)
IF MESSAGEBOX("您需要导出的文件已存在,是否坚持导出?",36,"导出消息")=6
STORE .T. TO YESNO
ENDIF
ELSE
STORE .T. TO YESNO
ENDIF
IF YESNO
COPY TO(THISFORM.TEXT1.VALUE) TYPE XLS
ENDIF
但是有问题,就是只能运行一次,在操作导出,就没有对话框出现了,请问您能帮我改么??谢谢
图片附件: 游客没有浏览图片的权限,请 登录注册

[此贴子已经被作者于2006-5-22 15:42:40编辑过]

搜索更多相关主题的帖子: 麻烦 
2006-05-22 10:35
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

你是没有仔细看过我的程序。上面给你的只是CLICK()内容,还有TEXT1.LOSTFOCUS()的代码你可能没有看。由于你在TEXT1中输入的文件名可以不带扩展名(.XLS),而系统判断文件是否存在仅仅依赖TEXT1的值,因此成了存在的文件当不存在的文件来看待。当你输入文件名是带.XLS的时候,就没有问题了。


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-22 10:39
lingkai
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-4-26
收藏
得分:0 
我照你说的作了,但是我打开vf时第一次点导出时可以出现选择dbf的对话框,当我在运行的时候,不出现对话框,我输入要导出保存的excel文件名称时,他就默认是我第一次选择的文件了。就是一直是导入我第一次选择的了,请问怎么回事啊!麻烦你了
2006-05-22 10:57
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
你是真的没看我的程序。请你打开,研究每一个改变的地方。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-22 14:40
lingkai
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-4-26
收藏
得分:0 
不好意思,这个已经解决了
2006-05-22 15:24
快速回复:[求助]又麻烦Tiger5392来看看!!(以解决)
数据加载中...
 
   



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

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