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
vfp排考号
最新推荐文章于 2023-11-21 15:12:04 发布