descending( ) 函数示例

下面的示例打开 testdata 数据库中的 customer 表。用 for ... endfor 创建一个循环。在循环中检查 customer 结构索引中的每个索引标识的降序状态。每个结构索引标识名和它的降序状态一起显示出来。

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

for ncount = 1 to 254
if !empty(tag(ncount)) && 检查索引中的标识状态
? tag(ncount) + ' descending? ' && 显示标识名
?? descending(ncount) && 显示降序状态
else
exit && 当没有标识时退出循环
endif
endfor