mysum1.prg

来自「田径运动会管理系统RAR 用VFP编写」· PRG 代码 · 共 23 行

******************************************
* 文件名：mysum.prg
* 函数功能：在表的尾部添加一条汇总记录，对数值型或金额型字段进行汇总。
* 调用方式：SELEDT TABLE1
*                =MYSUM()
******************************************
APPE BLANK
PRIVATE lMark, PcFiel, PnSum
lMark = .t.
FOR i = 1 TO FCOUNT()
    PcFiel = FIEL(i)
    IF TYPE('&PcFiel') $ 'YN'
       SUM &PcFiel  TO PnSum
       GO BOTTOM
       REPLACE &PcFiel WITH pnSum
    ENDIF
    IF TYPE('PcFiel') = 'C'.AND. lMark
       GO BOTTOM
       REPLACE &PcFiel WITH '合计'
       lMark = .f. && 做合计项标记
    ENDIF
ENDFOR