今天编的一个小程序， 如下 ：
select jhxx
set filt to year(进货时间)=nf .and. month(进货时间)=yf .and. 进货数量#0
go top
do while .not.eof()
  select kc_da
    seek jhxx.商品编号
  if eof()
    appe blan
    repl 商品编号 with jhxx.商品编号
  endif
  repl rk&yfc with rk&yfc+jhxx.进货数量
  sele jhxx
  skip
ENDDO

执行后就是死循环，请各位教我，应该修改哪里啊？

不是这样的吧：
如果 SEEK 找到了与索引关键字相匹配的记录，则 RECNO( ) 返回匹配记录的记录号；FOUND( ) 返回“真”(.T.)；EOF( ) 返回“假”(.F.)。
如果找不到相匹配的关键字，则 RECNO( ) 将表中记录的个数加 1，然后返回；FOUND( ) 返回“假”(.F.)；EOF( ) 返回“真”(.T.)。

不是这样的吧：
如果 SEEK 找到了与索引关键字相匹配的记录，则 RECNO( ) 返回匹配记录的记录号；FOUND( ) 返回“真”(.T.)；EOF( ) 返回“假”(.F.)。
如果找不到相匹配的关键字，则 RECNO( ) 将表中记录的个数加 1，然后返回；FOUND( ) 返回“假”(.F.)；EOF( ) 返回“真”(.T.)。