vfp排名次班名次

messagebox('确认bj为数值型从701到920，zf为数值型，有bmc,mc',1)
*alter table abcd add bmc n(6,1) 添加一个字段
************************************************排班名次
*按zf总分降序
index on zf tag zfzf descending
*nj年级
nj=int(bj/100)
for lni=nj*100+1 to nj*100+20
*筛选某一班级，排序
set filter to bj=lni
   GOTO TOP
   oldcj = zf
   k = 1
   j = 1
*从表头起循环
   DO WHILE NOT EOF()
      IF OLDCJ > zf
         oldcj = zf
         j = K
      ENDIF
      REPLACE bmc WITH J
      k = K+1
      SKIP
   ENDDO
  set filter to 
  endfor
*排总名次
   GOTO TOP
   oldcj = zf
   k = 1
   j = 1
*从表头起循环
   GOTO TOP
   oldcj = zf
   k = 1
   j = 1
   DO WHILE NOT EOF()
      IF OLDCJ > zf
         oldcj = zf
         j = K
      ENDIF
      REPLACE mc WITH J
      k = K+1
      SKIP
   ENDDO