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