| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1545 人关注过本帖
标题:用什么样的语句查看文件有没有打开
只看楼主 加入收藏
ptyy803
Rank: 2
来 自:上海
等 级:论坛游民
威 望:2
帖 子:193
专家分:64
注 册:2009-6-11
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
用什么样的语句查看文件有没有打开
看文件有没有打开,如没打开就打开此文件,如已打开就使用他
用什么样的语句?
2012-08-01 20:51
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
DBF文件:USED()
程序代码:
used( ) 函数
确定是否在指定工作区中打开了一个表。

语法

USED([nWorkArea | cTableAlias])

参数
nWorkArea | cTableAlias

指定表的工作区。nWorkArea 指定工作区编号,cTableAlias 指定表的别名。如果不包含 nWorkArea 或 cTableAlias,则检查当前选定工作区中是否有一个打开的表。
如果包含一个表别名,那么当该别名指定的表已在一个工作区中打开时,used( ) 函数返回“真”(.T.)。

返回值类型

逻辑型

说明

如果在指定的工作区中打开了一个表,used( ) 函数就返回“真”
(.T.);否则,used( ) 函数返回“假” (.F.)。
示例:VFP6.0
程序代码:
IF USED("TABNAME")
   *--- TABNAME.DBF 打开
   SELECT TABNAME
ELSE
   *--- TABNAME.DBF 打开
   USE TABNAME
ENDIF


[ 本帖最后由 sdta 于 2012-8-1 21:21 编辑 ]

坚守VFP最后的阵地
2012-08-01 21:17
ptyy803
Rank: 2
来 自:上海
等 级:论坛游民
威 望:2
帖 子:193
专家分:64
注 册:2009-6-11
收藏
得分:0 
现在不知道在什么工作区打开的,我记得有一个函数是看文件有没有打开,如没有打开就打开他,如打开就浏览。
记不起来啦,
2012-08-01 21:20
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
回复 3楼 ptyy803
只要知道数据表名称就行,不管是否打开,用下列代码先关闭该数据表,然后再打开。
USE IN SELECT("TABNAME")
USE TABNAME EXCLUSIVE
BROWSE



SELECT * FROM TABNAME INTO CURSOR TEMP
BROWSE

[ 本帖最后由 sdta 于 2012-8-1 21:48 编辑 ]

坚守VFP最后的阵地
2012-08-01 21:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
不知道是查看什么文件

坚守VFP最后的阵地
2012-08-01 21:52
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:10 
如果是测试表是否打开,用used()函数就行。
if !used("表名")
  use 表名 in 0
endif
select 表名

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-08-01 21:58
ptyy803
Rank: 2
来 自:上海
等 级:论坛游民
威 望:2
帖 子:193
专家分:64
注 册:2009-6-11
收藏
得分:0 
问题解决啦,谢谢2楼和6楼。
2012-08-01 22:04
快速回复:用什么样的语句查看文件有没有打开
数据加载中...
 
   



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

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