纵向比较，上下记录相同，则在顺序号字段中填上数值。如有五条相同的，顺序号依次从1-5.

原理同不同班级排名次
先索引再排名次

我以前的代码可供参考
use zkcj
inde on name to ls1

cNAME = ""
nXH = 0
SCAN
    IF name == cname
        nxh = nxh + 1
    ELSE
        cname = name  &&v如果不相等，则把当前的name赋值于cnme,nxh为1
        nxh = 1
    ENDIF
    REPLACE xh WITH nxh
ENDSCAN

收到的鲜花

• lnsyzhuhua 于 2017-08-16 15:19 送鲜花  3朵   附言：好文章

灵活运用VFP基础知识

“上下记录相同”是什么意思？是上下记录某个字段的值相同？还是上下记录所有字段的值相同？

t1=""
xh=1
scan
    IF dm==t1
        xh=xh+1
    ELSE
        xh=1
    ENDIF
    REPLACE 次数 WITH xh
    t1=dm
Endscan
browse

use 邮寄
inde on 编号 to ls1

cNAME = ""
nXH = 0
SCAN
    IF 编号 == cname
        nxh = nxh + 1
    ELSE
        cname = 编号  &&v如果不相等，则把当前的name赋值于cnme,nxh为1
        nxh = 1
    ENDIF
    REPLACE 顺序号 WITH nxh
ENDSCAN

这是第一种情况的

有用sele语句一行搞定的没？

饭要一口口吃，路要一步步走，一口能吃成胖子吗，楼主的要求太高了