在数据表的最后一条记录后添加一条求和记录

作者在 2015-03-13 14:05:28 发布以下内容
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
数据表问题 | 阅读 1639 次
文章评论,共0条
游客请输入验证码
浏览376933次