key( ) 函数示例

下面的示例先打开 testdata 数据库中的 customer 表，然后在 for ... endfor 创建的循环中使用 key( ) 函数来显示 customer 结构索引文件中每个索引标识的索引表达式。每个结构索引标识名和它的索引表达式同时显示。

close databases
open database (home( ) + 'samples\data\testdata')
use customer && 打开 customer 表
clear

for ncount = 1 to 254
if !empty(tag(ncount)) && 检查索引文件中的标识
? tag(ncount) + ' ' && 显示标识的名称
?? key(ncount) && 显示索引表达式
else
exit && 所有标识都搜索完以后退出循环
endif
endfor