tag( ) 函数示例

下面的示例打开 testdata 数据库中的 customer 表。使用 for ... endfor 语句创建一个循环，在循环内使用 cdx( ) 函数显示每个结构索引的名称。

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

clear
for ncount = 1 to 254
if !empty(tag(ncount)) && 检查索引中的标识。
? cdx(ncount) && 显示 .cdx 名称
else
exit && 当找不到标识时，退出循环
endif
endfor