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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2514 人关注过本帖

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

只看楼主加入收藏

吹水佬

等　级：版主
威　望：451
帖　子：10559
专家分：42996
注　册：2014-5-20

第 11 楼

得分:0

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

图片附件: 游客没有浏览图片的权限，请登录或注册

从13--22 是统计结果 2

图片附件: 游客没有浏览图片的权限，请登录或注册

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

2021-06-25 16:06

fdqzy

等　级：新手上路
帖　子：368
专家分：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

等　级：新手上路
帖　子：368
专家分：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

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

第 14 楼

得分:0

有劳版主了！！！

2021-06-25 16:47

吹水佬

等　级：版主
威　望：451
帖　子：10559
专家分：42996
注　册：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

等　级：新手上路
帖　子：368
专家分：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