请教：纵向比较，上下二条记录相同，则在次数字段中填上2，不相同则填上1，我的代码运行结果中第一条记录的次数中为空？如何修改？请指教
代码如下：
use ls
scan
t1=dm
SKIP
t2=dm
IF t1<>t2
REPLACE 次数 WITH "1"
dm=t1
ELSE
skip-1
REPLACE 次数 WITH "2"
skip
REPLACE 次数 WITH "2"
dm=t2
 ENDIF
 skip-1
 Endscan

为什么第一条记录中次数为空？

附上数据库与代码，请指教。

create cursor tt (dm c(7),次数 c(1))
insert into tt (dm) values ("6509070")
insert into tt (dm) values ("6509071")
insert into tt (dm) values ("6509072")
insert into tt (dm) values ("6509072")
insert into tt (dm) values ("6509073")
insert into tt (dm) values ("6509073")
insert into tt (dm) values ("6509074")
insert into tt (dm) values ("6509075")
insert into tt (dm) values ("6509075")
insert into tt (dm) values ("6509076")
insert into tt (dm) values ("6509077")
insert into tt (dm) values ("6509077")
t1=""
scan
    t2=dm
    IF t1<>t2
        REPLACE 次数 WITH "1"
    ELSE
        REPLACE record recno() 次数 WITH "2"
        REPLACE record recno()-1 次数 WITH "2"
        skip
    ENDIF
    t1=dm
Endscan
browse

[此贴子已经被作者于2017-8-16 12:21编辑过]

create cursor tt (dm c(7),次数 c(1))
insert into tt (dm) values ("6509070")
insert into tt (dm) values ("6509070")
insert into tt (dm) values ("6509071")
insert into tt (dm) values ("6509072")
insert into tt (dm) values ("6509072")
insert into tt (dm) values ("6509073")
insert into tt (dm) values ("6509073")
insert into tt (dm) values ("6509074")
insert into tt (dm) values ("6509075")
insert into tt (dm) values ("6509075")
insert into tt (dm) values ("6509076")
insert into tt (dm) values ("6509077")
insert into tt (dm) values ("6509077")
insert into tt (dm) values ("6509078")
t1=""
scan
    t2=dm
    IF t1<>t2
        REPLACE 次数 WITH "1"
    ELSE
        REPLACE record recno() 次数 WITH "2"
        REPLACE record recno()-1 次数 WITH "2"
        skip
    ENDIF
    t1=dm
Endscan
browse

[此贴子已经被作者于2017-8-16 12:30编辑过]

sdta :
 谢谢指教!
 但有一个不足，如果dm没有按序排列的话，以下二句代码：
         REPLACE record recno() 次数 WITH "2"
        REPLACE record recno()-1 次数 WITH "2"
就不行了。
必须索引并生成一个新库后才能用。
我改了一下
USE ls
INDEX on dm TO ls
t1=""
scan
    t2=dm
    IF t1<>t2
        REPLACE 次数 WITH "1"
    ELSE
       * REPLACE record recno() 次数 WITH "2"
        *REPLACE record recno()-1 次数 WITH "2"
        REPLACE 次数 WITH "2"
        SKIP -1
         REPLACE 次数 WITH "2"
        skip
    ENDIF
    t1=dm
Endscan
browse

[此贴子已经被作者于2017-8-16 13:55编辑过]

楼主,要这个的目的是什么

车到山前必有路，船到桥头自然直。

谢谢你的指教 !
我照样画芦改了一下。

[此贴子已经被作者于2017-8-16 13:58编辑过]

USE ls ALIAS ls
? "总记录数：", RECCOUNT()
SELECT DISTINCT *, 0 tj FROM ls INTO CURSOR tmp READWRITE
SELECT tmp
INDEX on dm TAG dm
SELECT ls
SET RELATION TO dm INTO "tmp"
REPLACE tmp.tj WITH tmp.tj+1 ALL
REPLACE ls.次数 WITH TRANSFORM(tmp.tj) ALL
SET RELATION TO
COUNT FOR 次数=="1" TO n
? "次数==1记录数：", n
COUNT FOR 次数=="2" TO n
? "次数==2记录数：", n
COUNT FOR 次数=="3" TO n
? "次数==3记录数：", n
COUNT FOR !INLIST(次数,"1","2","3") TO n
? "其他次数记录数：", n
**BROWSE FOR 次数=="3"

https://bbs.bccn.net/thread-480087-1-1.html