求连续出现的最大值 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求连续出现的最大值

标题：求连续出现的最大值

只看楼主

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 11 楼

得分:0

还是有点不明
看看第14行记录
从12--21 是统计结果 3

从13--22 是统计结果 2

第14行记录到底取3还是2

2021-06-25 16:06

fdqzy

等　级：新手上路
帖　子：354
专家分：0
注　册：2016-8-15

第 12 楼

得分:0

以下是引用吹水佬在2021-6-25 16:06:12的发言：

还是有点不明
看看第14行记录
从12--21 是统计结果 3

从13--22 是统计结果 2

第14行记录到底取3还是2

是这样，它是这10行的连续出现的结果，与10行外的连续次数无关

2021-06-25 16:41

fdqzy

等　级：新手上路
帖　子：354
专家分：0
注　册：2016-8-15

第 13 楼

得分:0

以下是引用吹水佬在2021-6-25 16:06:12的发言：

还是有点不明
看看第14行记录
从12--21 是统计结果 3

从13--22 是统计结果 2

第14行记录到底取3还是2

按包含14行的前10行计，应该是取3，22行取2是对的
这个对最后的应用无关系

[此贴子已经被作者于2021-6-25 16:48编辑过]

2021-06-25 16:43

fdqzy

等　级：新手上路
帖　子：354
专家分：0
注　册：2016-8-15

第 14 楼

得分:0

有劳版主了！！！

2021-06-25 16:47

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 15 楼

得分:0

还有这种情况：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-06-25 18:20

fdqzy

等　级：新手上路
帖　子：354
专家分：0
注　册：2016-8-15

第 16 楼

得分:0

以下是引用吹水佬在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

不要紧，这是上10行和下10行所致，像这种情况多。
谢谢！

2021-06-25 19:29

fdqzy

等　级：新手上路
帖　子：354
专家分：0
注　册：2016-8-15

第 17 楼

得分:0