vfp排考号

messagebox('确认bj为数值型3位701-920，xm为字符,其它为数值，zf总分,kh考号,sxh顺序号',1)
*alter table abcd add bmc n(6,1) 添加一个字段
***********************************************排考号
*1,按班级排sxh，sxh*30+bj
*2,sxh升序
*3,kh排序，330030000+i+(int(bj/100)-6)*1000000

*总分降序
index on zf tag zfzf descending
*lni从第1个班到20班
*nj年级
nj=int(bj/100) 
for lni=nj*100+1 to nj*100+20
*筛选某一班级，排sxh顺序号，每个加1，显示每个加30
set filter to bj=lni
   GOTO TOP
   k = 1
   DO WHILE NOT EOF()
      REPLACE sxh WITH k*30+bj
      k = K+1
      SKIP
   ENDDO
  set filter to 
  endfor
*sxh排序
index on sxh tag sxhsxh ascending
*排kh
goto top
i=330030001+nj*1000000
	do while not eof()
		replace kh with i
		i=i+1
		skip
	enddo