我也想了个笨方法
SELECT 序号 FROM test WHERE 标记=" " INTO ARRAY xuhao
zs=ALEN(xuhao)
start=xuhao(1)
maxjiange=0
FOR jsq=2 TO zs
         jiange=xuhao(jsq)-xuhao(jsq-1)
         IF jiange>1
            testjiange=xuhao(jsq-1)-start+1
            start=xuhao(jsq)
            maxjiange=MAX(maxjiange,testjiange)
         endif
ENDFOR
   ?"最大间隔数为"+STR(maxjiange)

如果用这种方法又简化一点儿了
SELECT 序号 FROM test WHERE 标记="T" INTO ARRAY xuhao
zs=ALEN(xuhao)
maxjiange=0
FOR jsq=2 TO zs
         jiange=xuhao(jsq)-xuhao(jsq-1)-1
         maxjiange=max(maxjiange,jiange)
ENDFOR
   ?"最大间隔数为"+STR(maxjiange)

这是在sql中 用两个语句实现茵梦湖大侠的效果
呵呵，为了响应版主号召，授渔而不授鱼，特上传附件，请想一想再看答案

爱死你们了！搞定了，谢谢

假设 你的序号字段是数值型, 那么 scan/endscan 方法的代码如下:
set deleted on
lsmax=0
use 你的表名
delete for !标志=.t.
go top
xh1=序号
skip
do while !eof(()
   xh2=序号
   if lsmax<xh2-xh1
      lsmax=xh2-xh1
   endif
   xh1=序号
   skip
enddo
recall all
set deleted off
messageb(" 最大间隔为: "+alltrim(str(lsmax)),0,"")

学习