close databases all
use cj1
create cursor cjbj (zkzh c(10),xm c(10),科目 c(10),成绩1 n(4),成绩 n(4))
select * from cj into array acj
select cj1
scan
for i=3 to fcount("cj1")
myfield=field(i,"cj1")
ncj=evaluate(myfield)
if cj1.zkzh=acj[recno("cj1"),1] and ncj!=acj[recno("cj1"),i]
insert into cjbj values (cj1.zkzh,cj1.xm,myfield,ncj,acj[recno("cj1"),i])
endif
endfor
endscan
select cjbj
browse