用带条件的delet命令加上循环，可以删除记录。

USE 01表
DIMENSION n(10)
STORE 0 TO n
SCAN
    FOR j=2 TO 6
        fd=FIELD(j)
        IF NOT ISBLANK(&fd)
            k=EVALUATE(fd)
            IF  k>0
                n(k)=n(k)+1
            ELSE
                n(10)=n(10)+1
            ENDIF
        ENDIF
    ENDFOR
ENDSCAN
GO bott
REPLACE 一 WITH n(1),二 WITH n(2),三 WITH n(3),四 WITH n(4),;
            五 WITH n(5),六 WITH n(6),七 WITH n(7),八 WITH n(8),;
            九 WITH n(9),十 WITH n(10)
BROWSE

TONYDENG版主说的一点不错，楼主的基础有待于提高，不能光等靠要。

多谢各位导师、朋友，特别是qjbzjp，谢谢您，我会认真听从您的教诲，努力学习。

USE  b1
STORE 0 TO n
gokg=.f.
FOR i =1 TO  RECCOUNT()
    GO i
    IF ALLTRIM(间隔)="*"     &&控制从第一次*出现开始统计
        gokg=.t.
    ENDIF
    IF gokg
        FOR j=2 TO 6
                    ……
        NEXT
    ENDIF           
NEXT
REPLACE 一 WITH n(1),二 WITH n(2),三 WITH n(3),四 WITH n(4),;
            五 WITH n(5),六 WITH n(6),七 WITH n(7),八 WITH n(8),;
            九 WITH n(9),十 WITH n(10)

学习