谢谢,高手就是不一样。程序的结果和我想要的差不多。我在研究一下，你的程序。

是这样吗？
CREATE TABLE mynew(h1 C(5),h2 C(8),h3 C(5),h4 C(5),h5 C(8),h6 C(5),h7 C(22))
APPEND FROM f:\记录.txt DELIMITED WITH BLANK
DELETE FOR EMPTY(h7)
PACK
USE mynew
DELETE FOR MOD(RECNO(),2)=0
PACK
n1=1
CLEAR
SCAN
    n2=VAL(SUBSTR(h7, 6,1))
    IF n1!=n2
        IF     n1<n2
            FOR i=n1 TO n2-1
                ?RECNO(),"无"+str(i,1)+"号站签订"
            NEXT
            n1=n2
        ELSE  
            FOR i=n1 TO 6
                ?RECNO(),"无"+str(i,1)+"号站签订"
            NEXT
            FOR i=1 TO n2-1
                ?RECNO(),"无"+str(i,1)+"号站签订"
            NEXT
            n1=n2
        ENDIF
    ENDIF
    n1=IIF(n1=6,0,n1)
    n1=n1+1
ENDSCAN
BROWSE     

谢谢楼上的。不过不是我想要的，10楼的程序基本上和我的想法差不多。