在EXCELL中公式=SUM(COUNTIF(B2:G2,B2:G2+1))就可轻松分析出一行中数据连号情况，
在dbf表中要如何更新连号情况？

1 2 4 6 7 8 这样连号算多少  

CLEAR
IF NOT USED("SSQ")
USE Ë«é«Çò IN 0 ALIAS ssq
ENDIF
SELECT ssq
x=fCOUNT()
FOR i=1 TO RECCOUNT()
GO i
REPLACE á¬oÅ WITH fssq(x,i)
ENDFOR
BROWSE
RETURN
CLOSE TABLES all

FUNCTION fssq
PARAMETERS x,i
PRIVATE s,u
s=0
FOR u=3 TO x-1
fld1=FIELD(u)
fld2=FIELD(u-1)
    IF &fld1=&fld2+1
    s=s+1
    ENDIF
ENDFOR
RETURN s
ENDFUNC


   

算2个连号

** 测试数据
create cursor 彩票(开奖日期 C(8),红球1 I,红球2 I,红球3 I,红球4 I,红球5 I,红球6 I,连号 I)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018067',1,2,3,4,15,18,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018068',8,9,10,11,12,30,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018069',6,7,8,9,10,11,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018070',4,9,15,16,19,27,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018071',2,5,6,13,16,19,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018072',11,16,19,22,25,30,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018073',2,9,14,15,16,23,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018074',9,11,14,20,27,30,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018075',7,9,12,13,22,24,0)

select 彩票
brow
** 扫描表
scan
  scatter fields 红球1,红球2,红球3,红球4,红球5,红球6 to myAry &&把当前记录放到数组，然后排序数组
  asort(myAry)
  lh=0
  for i=1 to 5
      if myAry[i]=myAry[i+1]-1 &&第i位与第i+1位比较，第i位=第i+1位-1，计数1次
         lh=lh+1
      endif
  endfor
  repl 连号 with lh
endscan

brow

如果有两组连号的，怎么处理，比如：
1，2，3，4，7，8
1-4,7-8 连号，，，

楼主所说的连号是指二连号（两个相连的号）

没错，所以6楼的能满足要求，对数据排序，是为了防止数据不是有序的，然后，只要相邻的是连号，就计数

学习拉，谢谢！