查找相关两行数据 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 查找相关两行数据

我的收件箱(0)

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

共有 678 人关注过本帖

标题：查找相关两行数据

只看楼主加入收藏

fdqzy

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

楼主

已结贴√ 问题点数：20 回复次数：2

查找相关两行数据

如下表：

程序代码：

create cursor b1 (m1 n(3),m2 c(3))
insert into b1 values (4," ")
insert into b1 values (1,"A")
insert into b1 values (0,"A")
insert into b1 values (1," ")
insert into b1 values (3,"  ")
insert into b1 values (4,"")
insert into b1 values (2,"A")
insert into b1 values (6," ")
insert into b1 values (8," ")
insert into b1 values (2,"A")

查找m2含A，并筛选出此行和相关的上一行数据，得到如下数据：

程序代码：

create cursor b1 (m1 n(3),m2 c(3))
insert into b1 values (4," ")
insert into b1 values (1,"A")
insert into b1 values (0,"A")
insert into b1 values (4,"")
insert into b1 values (2,"A")
insert into b1 values (8," ")
insert into b1 values (2,"A")

[/color]
应如何进行？谢谢！

[此贴子已经被作者于2021-8-13 18:41编辑过]

2021-08-13 18:35

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9821
专家分：27099
注　册：2012-2-5

第 2 楼

得分:20

程序代码：

create cursor b1 (m1 n(3),m2 c(3))
insert into b1 values (4," ")
insert into b1 values (1,"A")
insert into b1 values (0,"A")
insert into b1 values (1," ")
insert into b1 values (3,"  ")
insert into b1 values (4,"")
insert into b1 values (2,"A")
insert into b1 values (6," ")
insert into b1 values (8," ")
insert into b1 values (2,"A")

create cursor b2 (m1 n(3),m2 c(3))
SELECT * FROM b1 INTO ARRAY lb
FOR lnj = 1 TO ALEN(lb, 1)
    IF lnj < ALEN(lb, 1) AND "A" $ lb[lnj + 1, 2]
        INSERT INTO b2 VALUES (lb[lnj, 1], lb[lnj, 2])
        IF lb[lnj, 2] != lb[lnj + 1, 2]
            INSERT INTO b2 VALUES (lb[lnj + 1, 1], lb[lnj + 1, 2])
        ENDIF 
    ENDIF 
ENDFOR
SELECT b2
BROWSE