要求 k1==k2 这个条件，应该不用算那么多
k1是最后的n1，就从最后的第100行起往前算n1就可以，算到非空时就可以结束。

从测试和统计结果看：
在IF k1==k2 AND k1>0 AND krow>20 AND k1<7条件下，都是k3<k2,没有k3=k2的情况,
但我把  IF INLIST(k2-k3,1,2)
 改成：IF k2=k3
统计结果一样，这样 IF INLIST(k2-k3,1,2)就成多余的条件，
我的意图是在k3<k2的情况下标注，k3=k2就不标注。

可能是我这次提供的bb无这种情况，我把上次的bb试一下看.

[此贴子已经被作者于2021-9-21 10:49编辑过]

老师：

此表放在IF k1==k2 AND k1>0 AND krow>20 AND k1<7，
在IF INLIST(k2-k3,1,2)之前（标注条件前）
测试结果显示无k3=k2的情况,且出现记录超范围的提示。
不满足：在k3<k2的情况下标注，k3=k2就不标注。

这样 IF INLIST(k2-k3,1,2)就成多余的条件，

第一次代码有k3=k2和k3<k2情况

[此贴子已经被作者于2021-9-21 11:11编辑过]

k2是连续非空最多的，且按每行计算，k3是紧跟着k2，这样一定是 k2-k3==1，所以k3也是多余算的。

FUNCTION k2k3(k2,k3,n1)  && 最大值、最次大值
    IF n1 > k2
        k2 = n1
    ELSE
        IF n1 > k3
            k3 = n1
        ENDIF 
    ENDIF 
ENDFUNC

经测试：上一次的这段代码有k3=k2 和k3<k2两种情况。
只是标注时字段名不是第1个

满足：在k3<k2的情况下标注，k3=k2就不标注是主要条件

[此贴子已经被作者于2021-9-21 12:23编辑过]

第一次的代码解决了在100行中有一个条件在k3<k2时标注，k3=k2时不标注的问题,只是标注时是最后一个字段名。
如果不管字段名，也算解决了问题.

7楼已解释过

用上面的bb,用下面的pmax

否则显示记录超范围

麻烦了，谢谢！

之前的代码
按连续非空整块比对
        FOR nRow=1 TO ALEN(a100,1)
            IF EMPTY(a100[nRow,nCol])
                n1 = n1 + 1
            ELSE
                k2k3(@k2,@k3,@n1)
                n1 = 0
                krow = krow + 1
            ENDIF
        ENDFOR

FUNCTION k2k3(k2,k3,n1)  && 最大值、最次大值
    IF n1 > k2
        k2 = n1
    ELSE
        IF n1 > k3     这个算法有问题，有可能 k2==k3 两个都是老大了
            k3 = n1
        ENDIF 
    ENDIF 
ENDFUN

后来的代码
按非空行比对
        FOR nRow=1 TO ALEN(a100,1)
            IF EMPTY(a100[nRow,nCol])
                n1 = n1 + 1
                k2k3(@k2,@k3,@n1)
            ELSE
                n1 = 0
                krow = krow + 1
            ENDIF
        ENDFOR

FUNCTION k2k3(k2,k3,n1)  && 最大值、最次大值
    IF n1 > k2    有新的最大时
        k3 = k2   原最大变次大
        k2 = n1   新的最大
    ENDIF 
ENDFUNC