每次点击查询都要手动定位dbf，有没有可能每次提示手动定位dbf前，若找不到表，弹出先导入数据的提示，若找到表，则执行下一步查询 - 编程论坛

#2

laowan0012022-08-27 12:31

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

#3

ruankao20222022-08-30 22:09

回复 2楼 laowan001

这样的没有解决手动定位dbf的问题呢

#4

laowan0012022-08-31 09:13

回复 3楼 ruankao2022

有没有可能每次提示手动定位dbf前，若找不到表，弹出先导入数据的提示，若找到表，则执行下一步查询

问题并不是不弹出手动定位dbf表，而是给出提示

#5

吹水佬2022-08-31 09:28

回复楼主 ruankao2022

具体是什么情况
给点相关代码看看

#6

kangss2022-09-01 15:54

以下是引用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.