asort( ) 函数示例

下面的示例将表 customer 的 contact 字段内容复制到数组 gacontact 中。然后显示数组中前 20 条 字段的内容，对数组进行排序，重新按排序顺序显示 contact 字段的内容。

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

count to gncount && contacts 字段的数目
dimension gacontact(gncount,1) && 创建数组
copy to array gacontact field contact && 填充数组

clear
? 'contact names:'
?
for ncount = 1 to 20
? gacontact(ncount) && 显示前 20 条 contact 内容
endfor
= asort(gacontact)) && 对数组排序

?
? 'sorted contact names:'
?
for ncount = 1 to 20
? gacontact(ncount) && 排序后，再显示前 20 条 contact 内容

endfor