以下是引用吹水佬在2021-6-25 18:20:34的发言：

还有这种情况：31、32行和41、42行

USE bmax
BLANK FIELDS m1zrmax ALL
FOR nRec=1 TO RECCOUNT() &&-10
    n = 0
    m = 0
    nMax = 0
    GO nRec
    SCAN NEXT 10
        IF ALLTRIM(m1zr)=="M1ZR"
            m = m + 1
            IF m > nMax
                nMax = m
                n = RECNO()
            ENDIF
        ELSE
            m = 0
        ENDIF
    ENDSCAN
    IF n > 0
        GO n
        IF nMax > VAL(m1zrmax)
            REPLACE m1zrmax WITH TRANSFORM(nMax)
        ENDIF
    ENDIF
ENDFOR
SELECT * FROM bmax

以下是引用吹水佬在2021-6-26 20:46:26的发言：

不知有无理解错：
1、按记录顺序依次统计连续的10行记录，结果标注在每次的第10行记录。
2、如果某次的第10行不是“M1ZR”则不标注（即忽略这次的数据处理过程），继续下一次的数据处理过程。
USE bmax
BLANK FIELDS m1zrmax ALL
FOR nRec=1 TO RECCOUNT()-9
    GO nRec+9
    IF ALLTRIM(m1zr)!="M1ZR"
        LOOP
    ENDIF
    m = 0
    nMax = 0
    GO nRec
    SCAN NEXT 10
        IF ALLTRIM(m1zr)=="M1ZR"
            m = m + 1
        ELSE
            IF m > nMax
                nMax = m
            ENDIF
            m = 0
        ENDIF
    ENDSCAN
    IF m > nMax
        nMax = m
    ENDIF
    GO nRec+9
    REPLACE m1zrmax WITH TRANSFORM(nMax)
ENDFOR
SELECT * FROM bmax