试试：
SELECT linshi
*GO BOTTOM
renshu = RECC()                    &&获得记录总数
GO TOP                             &&返回最顶开始
DIMENSION marray(renshu)           &&根据记录总数定义一个数组存放姓名
FOR i=1 TO renshu
   STORE 姓名 TO marray(i)
   SKIP
ENDFOR
SELECT huojianjilu
FOR j=1 TO renshu
   SUM  huojianjilu.保管金额  TO grje FOR ALLTRIM(huojianjilu.收款人员) = ALLTRIM(marray(j))
   SUM  huojianjilu.货件数量  TO grch FOR ALLTRIM(huojianjilu.存仓人员) = ALLTRIM(marray(j))
   SUM  huojianjilu.货件数量  TO grth FOR ALLTRIM(huojianjilu.提货人员) = ALLTRIM(marray(j))
   SELECT linshi
   GO j
   REPLACE 存放金额 WITH grje
   REPLACE 存放数量 WITH grch
   REPLACE 提货数量 WITH grth
ENDFOR

这个程序有问题。楼主好像要统计收款人员、存仓人员、提货人员的相关数据？

是存在不少问题，别的不说，好像一个循环就够了……

哪里呀！他的huojianjilu表里每个人肯定有1条以上的记录。其实用select解决。

sele 收款人员,sum(*) from huojianjilu group by 收款人员 into curs temp1
sele 存仓人员,sum(*) from huojianjilu group by 存仓人员 into curs temp2
sele 提货人员,sum(*) from huojianjilu group by 提货人员 into curs temp3
然后，按需要组织记录

或者，用scan 临时表，将huojianjilu表中每人工作量相加后，放到另外一个表