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

数据表问题 | 2015-03-13 14:05:28 | 阅读 970 次 | 评论(0)
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
文章评论,共0条
游客请输入验证码
浏览234009次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...