查找相关两行数据

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