一张考勤表，现要统计出个数并将结果填入表中
A1,A2,A3,A4 表示每月的号
如何做到

这个表本身设计就不科学，应该如下设计
xh
xm
dm
日期
事由
最后将结果存入统计表中

IF !USED('tab_a')
    USE tab_a ALIAS tab_a IN 0
ENDIF

_S = 4    &&从第4列开始统计
_E = 9    &&统计到第9列结束

SELECT tab_a
_F = AFIELDS(_FArr,'tab_a')    &&将字段信息存入数组_FArr
SCAN
    _C = ''                &&用于存储每行字符
    FOR ii = _S TO _E      &&从第4列开始统计
        _C = _C + ALLTRIM(&_FArr[ii,1])
    ENDFOR
    REPLACE ALL 病假 WITH ALLTRIM(STR(OCCURS('病',_C))),事假 WITH ALLTRIM(STR(OCCURS('事',_C))),旷工 WITH ALLTRIM(STR(OCCURS('旷',_C))),探亲 WITH ALLTRIM(STR(OCCURS('探',_C)))
ENDSCAN  

CLOSE DATABASES
USE tab_a
BLANK FIELDS 病假,事假,旷工,探亲 ALL
cStr1 = ""
SCAN
    FOR i = 4 TO 9
        cStr = ALLTRIM(EVALUATE(FIELD(i)))
        IF EMPTY(cStr)
            LOOP
        ENDIF
        DO CASE
            CASE cStr $ "病假" OR cStr $ "事假"
                cStr1 = cStr + "假"
            CASE cStr $ "旷工"
                cStr1 = "旷工"
            CASE cStr $ "探亲"
                cStr1 = "探亲"
        ENDCASE
        REPLACE (cStr1) WITH TRANSFORM(INT(VAL(EVALUATE(cStr1))) + 1)
    ENDFOR
ENDSCAN
BROWSE
USE IN tab_a