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

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语句一行搞定的没？