标题:每次点击查询都要手动定位dbf,有没有可能每次提示手动定位dbf前,若找不到 ...
只看楼主
ruankao2022
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2022-8-22
结帖率:33.33%
已结贴  问题点数:10 回复次数:5 
每次点击查询都要手动定位dbf,有没有可能每次提示手动定位dbf前,若找不到表,弹出先导入数据的提示,若找到表,则执行下一步查询
每次点击查询都要手动定位dbf,有没有可能每次提示手动定位dbf前,若找不到表,弹出先导入数据的提示,若找到表,则执行下一步查询

小白的我,真心请教大神、朋友,谢谢
搜索更多相关主题的帖子: 提示 执行 定位 dbf 查询 
2022-08-27 09:40
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:54
帖 子:802
专家分:1914
注 册:2015-12-30
得分:10 
* command1.click
if file('要打开的表')
    use 要打开的表  
    * 继续后面的处理
else
    messagebox('没找到要打开的表,请先导入')
endif
2022-08-27 12:31
ruankao2022
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2022-8-22
得分:0 
回复 2楼 laowan001
这样的没有解决手动定位dbf的问题呢
2022-08-30 22:09
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:54
帖 子:802
专家分:1914
注 册:2015-12-30
得分:0 
回复 3楼 ruankao2022
有没有可能每次提示手动定位dbf前,若找不到表,弹出先导入数据的提示,若找到表,则执行下一步查询

问题并不是不弹出手动定位dbf表,而是给出提示
2022-08-31 09:13
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
回复 楼主 ruankao2022
具体是什么情况
给点相关代码看看
2022-08-31 09:28
kangss
Rank: 4
等 级:贵宾
威 望:10
帖 子:138
专家分:237
注 册:2014-6-12
得分:0 
以下是引用laowan001在2022-8-27 12:31:30的发言:

* command1.click
if file('要打开的表')
    use 要打开的表  
    * 继续后面的处理
else
    messagebox('没找到要打开的表,请先导入')
endif


if not used("要打开的表")
       use 要打开的表
endif

*******************************************

Visual FoxPro 9.0 SP2
USED( ) 函数  
请参阅 示例
 全部折叠 全部展开
确定别名是否被使用,或在指定工作区内是否有打开的数据表。

 
USED([nWorkArea | cTableAlias])
 

参数
nWorkArea| cTableAlias
指定表的别名或工作区号。如果你指定一个工作区编号,那么当在指定工作区内有一个表被打开时,USED( ) 函数返回一个逻辑真值 (.T.),反之则返回一个逻辑假值 (.F.);如果指定一个别名,那么当别名指定的表被打开时,USED( ) 返回一个逻辑真值 (.T.) ,否则将返回逻辑假 (.F.) 。
返回值
逻辑型

说明
USED( ) 可以确定一个别名是否被使用,或一个表是否在指定工作区内被打开。

示例
  复制代码
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
SELECT A
USE customer  && 打开 Customer 表
SELECT B
USE orders  && 打开 Orders 表
SELECT C
USE employee  && 打开 Employee 表
? USED('A')  && 显示 .T.
? USED('B')  && 显示 .T.
? USED(4)  && 显示 .F.
 
2022-09-01 15:54



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




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

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