cdx( ) 函数示例

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

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

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