VFP生成的文件最好是存在自建的文件夹内

和刚才一样

你用的VFP版本？

*--- 添加按钮代码
SELECT SHLR
IF RECCOUNT("SHLR")<=0
   INSERT INTO SHLR (CLBH) VALUES ("合  计")
ENDIF
GO BOTTOM
INSERT BEFORE BLANK && 在最后一条记录前插入一条空白记录
GO RECCOUNT()-1
FOR I=1 TO FCOUNT() &&添加新记录
    TEXT="TEXT"+TRANSFORM(I)
    REPLACE (FIELD(I)) WITH THISFORM.&TEXT..VALUE
ENDFOR
IF RECCOUNT("SHLR")>1
   SELECT "合  计" AS CLBH,SPACE(20) AS CLMC,SUM(CLDJ) AS CLDJ FROM SHLR WHERE BETWEEN(RECNO(),1,RECCOUNT()-1) INTO ARRAY SJ_SUM
   SELECT SHLR
   GO BOTTOM
   GATHER FROM SJ_SUM
ENDIF
RELEASE SJ_SUM
THISFORM.GRID1.REFRESH
thisform.refresh
thisform.text1.setfocus
thisform.text1.value=''
thisform.text4.value=''
thisform.text5.value=''

[ 本帖最后由 sdta 于 2012-8-27 14:50 编辑 ]

6.0，我重新做了一个表单，之前的功能还是能实现，加上你给我的代码后，我把sl改成数值型的了，sl就是数量
cldj是单价，总是出现数据类型不符，和文件必须以独占方式打开。我 显示出来的不是单价的合计，是单价*数量的合计，数量也要有个合计。啊，辛苦你了，我不会的太多了。

添加按钮的代码是在click事件里吗？

放在添加按钮的CLICK中

*--- “添加”CLICK 事件代码
SELECT SHLR
IF RECCOUNT("SHLR")<=0
   INSERT INTO SHLR (CLBH) VALUES ("合  计")
ENDIF
GO BOTTOM
INSERT BEFORE BLANK && 在最后一条记录前插入一条空白记录
GO RECCOUNT()-1
FOR I=1 TO FCOUNT()
    TEXT="TEXT"+TRANSFORM(I)
    REPLACE (FIELD(I)) WITH THISFORM.&TEXT..VALUE
ENDFOR
IF RECCOUNT("SHLR")>1
   SELECT "合  计" AS CLBH,SPACE(20) AS CLMC,00000.00 AS CLDJ,SUM(SL) AS SL FROM SHLR WHERE BETWEEN(RECNO(),1,RECCOUNT()-1) INTO ARRAY SJ_SUM
   SELECT SHLR
   GO BOTTOM
   GATHER FROM SJ_SUM
ENDIF
RELEASE SJ_SUM
*--- 表格 INIT 事件代码
THISFORM.SETALL("FORMAT","Z","COLUMN")

我是放在那里了呀，怎么总提示数据类型不匹配，文件以只读的方式打开，然后我想在单价的最下面显示的单价*数量的总额，然后在数量下面显示的数量的总数。我把数量也改成数值型的了啊。

每次运行都出一个合计，每次运行都出一个新的合计。