程序代码：

*--- 如何在数据表中查询编号中的缺号
CREATE CURSOR TABA (BH I)
FOR I=1 TO 31
    IF MOD(I,10)!=0
       INSERT INTO TABA VALUES (I)
    ENDIF
ENDFOR
*--- BH缺少10、20、30
I=0
CSTR=[]
SCAN
   I=I+1
   IF BH!=I
      CSTR=CSTR+TRANSFORM(I)+[,]
      I=I+1
   ENDIF
ENDSCAN
=STRTOFILE([BH中缺号：]+CSTR,"TABA.TXT")
MODIFY FILE TABA.TXT
MESSAGEBOX([缺少BH：]+LEFT(CSTR,LEN(CSTR)-1))
BROWSE