| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2099 人关注过本帖
标题:grid中添加合计问题
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
VFP生成的文件最好是存在自建的文件夹内

坚守VFP最后的阵地
2012-08-27 14:13
coralxing
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2012-8-23
收藏
得分:0 
回复 10楼 sdta
和刚才一样
2012-08-27 14:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
你用的VFP版本?

坚守VFP最后的阵地
2012-08-27 14:14
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
*--- 添加按钮代码
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 编辑 ]

坚守VFP最后的阵地
2012-08-27 14:17
coralxing
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2012-8-23
收藏
得分:0 
回复 14楼 sdta
6.0,我重新做了一个表单,之前的功能还是能实现,加上你给我的代码后,我把sl改成数值型的了,sl就是数量
cldj是单价,总是出现数据类型不符,和文件必须以独占方式打开。我 显示出来的不是单价的合计,是单价*数量的合计,数量也要有个合计。啊,辛苦你了,我不会的太多了。
2012-08-27 15:07
coralxing
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2012-8-23
收藏
得分:0 
回复 14楼 sdta
添加按钮的代码是在click事件里吗?
2012-08-27 15:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用coralxing在2012-8-27 15:34:08的发言:

添加按钮的代码是在click事件里吗?
放在添加按钮的CLICK中


坚守VFP最后的阵地
2012-08-27 16:26
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
*--- “添加”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")

坚守VFP最后的阵地
2012-08-27 16:29
coralxing
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2012-8-23
收藏
得分:0 
回复 17楼 sdta
我是放在那里了呀,怎么总提示数据类型不匹配,文件以只读的方式打开,然后我想在单价的最下面显示的单价*数量的总额,然后在数量下面显示的数量的总数。我把数量也改成数值型的了啊。
2012-08-27 16:30
coralxing
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2012-8-23
收藏
得分:0 
回复 19楼 coralxing
每次运行都出一个合计,每次运行都出一个新的合计。
2012-08-27 16:36
快速回复:grid中添加合计问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030755 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved