ains( ) 函数示例

下面的示例用来创建一个数组，并且用公司名给每个元素赋值。在数组中搜索某个公司名时，如果没有找到此公司名，则把它加到数组中去。

close databases
open database (home( ) + 'samples\data\testdata')
use customer && 打开 customer 表
select company from customer ;
where country = 'germany' ;
into array gacompanies

gncount = _tally
gcname = 'seven seas imports'
clear
display memory like gacompanies

if ascan(gacompanies, gcname) = 0 && 搜索公司名
*** 公司名未找到，将萁加入到数组中***
dimension gacompanies[gncount+1,1]
= ains(gacompanies, gncount+1)
gacompanies[gncount+1] = gcname
endif
display memory like gacompanies