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) IFk>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
USEb1
STORE 0 TO n
gokg=.f.
FOR i =1 TORECCOUNT() 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)