1.可以选择的做法是设array为public,例如：public myarray(1)
  select * from tablezl into array myarray

2.可以用宏代换
   &zsql

第一个问题,作为参数来传递应该是可以的,之前IlikeFox指点过有的.
http://bbs.pfan.cn/post-242624.html
第二个问题,可以使用宏替换.
&zsql.

要想返回一个Array，一般的办法是使用引用参数传递，在程式入口把数组地址传入，然后再程式中加工数组，这样不需要return返回数组名，即可直接修改这个数组的成员值。


***上级程式/过程/事件
Dimension Data_Array(1)

**调入Function()程式
if Get_My_Data(@Data_Array)>0
   ***
   ***
else
   messagebox("没有数据！")
endif

return

*** Get_My_Data.prg
PARAMETERS aArray
extern array aArray                && 申明下这是个外部的数组，以免编译器报错
local rec_count

select name from 資料.dbf where AGE>=18 into array aArray
rec_count=reccount()
use

return rec_count              && 返回查询结果的个数