acopy( ) 函数示例

下面的示例根据 customer 表中选定的记录创建一个数组，然后用 acopy() 函数创建一个新的数组。

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

select distinct company ;
from customer ;
order by company ;
where country = 'germany';
into array gacompanies
= acopy(gacompanies, gacompaniestemp) && 对数组进行复制
clear 
display memory like gacompaniestemp