LPARAMETERS CTABNAME
GO BOTTOM
*--- 检查最后一条记录是否为"小计"行
IF AT("小计",EVALUATE(FIELD(1)))>0
   MESSAGEBOX("已经有小计记录",64,"系统信息")
   RETURN
ENDIF
*--- 在数据表最后插入一条记录
INSERT INTO (CTABNAME) ((FIELD(1))) VALUES (PADC("小计",FSIZE(FIELD(1)),"-"))
FOR I=NZDS TO FCOUNT()
    IF TYPE(FIELD(I))="N"
       SUM EVALUATE(FIELD(I)) TO HJ
       *--- 数值型字段求和，并将结果添加到最后一条记录
       REPLACE RECORD RECCOUNT() (FIELD(I)) WITH HJ
       *--- 清空数值型字段内容为"0"的记录
       BLANK FIELD (FIELD(I)) FOR EVALUATE(FIELD(I))=0
    ENDIF
ENDFOR