| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2023 人关注过本帖
标题:查询字段中指定的值和它的 下一行记录
只看楼主 加入收藏
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
收藏
得分:0 
回复 7楼 吹水佬
非常感谢吹水佬老师的帮助。
运行很好,与手动统计结果一致。
统计结果如能以表的形式存在,有利于后续再统计。
请老师再帮助一下,将结果以表的形式显示。
2021-11-27 10:31
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
回复 11楼 yd1954
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
USE k1 IN 0 ALIAS a
USE k1 IN 0 ALIAS b AGAIN
SELECT 0000 记录号,n1 FROM a WHERE .f. INTO CURSOR tmp READWRITE 
SELECT a
SET RELATION TO RECNO()+1 INTO "b"
SCAN 
    IF a.n1==91
        INSERT INTO tmp VALUES (RECNO("a"),a.n1)
        INSERT INTO tmp VALUES (RECNO("b"),b.n1)
    ENDIF
ENDSCAN
SELECT * FROM tmp
2021-11-27 11:55
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
程序代码:
SELECT 0000 记录号,n1 FROM k1 WHERE .f. INTO CURSOR tmp READWRITE
SELECT k1
DO WHILE !EOF()
    IF n1==91
        INSERT INTO tmp VALUES (RECNO("k1"),k1.n1)
        SKIP
        IF !EOF()
            INSERT INTO tmp VALUES (RECNO("k1"),k1.n1)
        ENDIF
    ENDIF
    IF !EOF()
        SKIP 
    ENDIF
ENDDO
SELECT * FROM tmp

2021-11-27 14:30
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
b1 = .f.
SELECT *, RECNO() 记录号 FROM k1 WHERE fun()

FUNCTION fun()
    IF n1==91
        b1 = .t.
        RETURN .t.
    ENDIF
    IF b1
        b1 = .f.
        RETURN .t.
    ENDIF
    RETURN .f.
ENDFUNC
2021-11-27 14:31
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:70 
图片附件: 游客没有浏览图片的权限,请 登录注册

SELECT RECNO() 记录号,* FROM k1 INTO CURSOR tmp
SELECT a.记录号,a.n1,b.记录号,b.n1 FROM tmp a JOIN tmp b ON a.n1==91 AND a.记录号==b.记录号-1
2021-11-27 16:04
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1712
专家分:3318
注 册:2012-2-29
收藏
得分:0 
高,谢谢吹水版主!
2021-11-28 06:30
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
收藏
得分:0 
回复 15楼 吹水佬
非常感谢吹水佬老师!
特别是最后的程序,简单,直观,便于后续统计,特别好。
再次感谢!
2021-11-28 08:56
快速回复:查询字段中指定的值和它的 下一行记录
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027374 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved