(这不是简明方法,只能作参考)
close all
create cursor aa (序号 i,号码 c(10),时间 c(30))
insert into aa (序号,号码,时间) value (1,'num1','10月1日')
insert into aa (序号,号码,时间) value (1,'num2','10月1日')
insert into aa (序号,号码,时间) value (1,'num1','10月2日')
insert into aa (序号,号码,时间) value (1,'num2','10月3日')
insert into aa (序号,号码,时间) value (1,'num3','10月4日')
insert into aa (序号,号码,时间) value (1,'num3','10月5日')
insert into aa (序号,号码,时间) value (1,'num3','10月6日')
insert into aa (序号,号码,时间) value (1,'num3','10月7日')
insert into aa (序号,号码,时间) value (1,'num2','10月8日')
insert into aa (序号,号码,时间) value (1,'num4','10月9日')
select * from aa into table bb order by 号码,时间
sele bb
n=1
go top
if eof()
return
endif
chm1=alltrim(号码)
replace 序号 with n
skip
do while.not.eof()
chm2=alltrim(号码)
if chm1=chm2
n=n+1
replace 序号 with n
else
n=1
replace 序号 with n
endif
skip
chm1=chm2
enddo
brow