程序代码：

CLOSE DATABASES 
USE zk 
BLANK FIELDS 考试次数 ALL
SCAN 
    lnCnt = 0
    FOR lnj = 2 TO FCOUNT()
        lnCnt = lnCnt + IIF(EVALUATE(FIELD(lnj)) = 0, 0, 1)
    ENDFOR
    REPLACE 考试次数 WITH TRANSFORM()lnCnt)
ENDSCAN
GO TOP 
BROWSE 

[此贴子已经被作者于2021-7-31 18:39编辑过]

BLANK FIELDS 考试次数 ALL
REPLACE 考试次数 WITH TRANSFORM(IIF(总分一期中>0, 1, 0) + IIF(总分一期末>0, 1, 0) + IIF(总分二月考>0, 1, 0) + IIF(总分二期中>0, 1, 0) + IIF(总分二期末>0, 1, 0)) ALL
BROWSE