| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 491 人关注过本帖
标题:求教大神sdta,分类求和问题
只看楼主 加入收藏
bdbbing
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2018-7-12
结帖率:0
  问题点数:0  回复次数:13   
求教大神sdta,分类求和问题
看了你的《按项目求和》的回复,在原程序中,只能对相同名称的进行汇总,不能按名称、规格型号两个字段分类汇总。
因为程序中索引和求和的思路看不懂,修改了多次也不能实现。
我是想名称不同,规格不同都要分别汇总。
附件: 您没有浏览附件的权限,请 登录注册
2018-08-09 12:30
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:170
帖 子:7364
专家分:17340
注 册:2012-2-5
  得分:0 
最后的结果是下表中的内容吗

坚守VFP最后的阵地
2018-08-09 12:40
bdbbing
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2018-7-12
  得分:0 
回复 2楼 sdta
第1个是原始表,第2个是运行后的结果,没能按型号汇总
2018-08-09 12:47
bdbbing
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2018-7-12
  得分:0 
回复 2楼 sdta
型号也不对,列出了2个DN15,应该是名称相同、型号相同的汇总在一起,
2018-08-09 12:50
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:170
帖 子:7364
专家分:17340
注 册:2012-2-5
  得分:0 
回复 4楼 bdbbing
但是你的单位不同啊

坚守VFP最后的阵地
2018-08-09 12:53
bdbbing
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2018-7-12
  得分:0 
可以先不管单位,我计划在前面的添加数据时做一个自动纠正不符合要求的“单位”到程序。
因为有些数据是用excel导入到,所以我想必须做个自动纠正的程序。
2018-08-09 12:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:170
帖 子:7364
专家分:17340
注 册:2012-2-5
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册

坚守VFP最后的阵地
2018-08-09 13:11
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:170
帖 子:7364
专家分:17340
注 册:2012-2-5
  得分:0 
CLOSE DATABASES ALL
SELECT DISTINCT 计划编号 FROM 表a INTO ARRAY ajh
SELECT DISTINCT 材料名称,型号 FROM 表a INTO ARRAY amc
*LIST MEMORY LIKE ajh
cStr="材料名称 c(50),型号 c(10),合计 n(6)"
FOR i=1 TO ALEN(ajh)
    cStr=cStr+","+ALLTRIM(ajh[i,1])+" n(4)"
ENDFOR
CREATE CURSOR tj (&cStr)
APPEND FROM ARRAY amc
INDEX ON 材料名称+型号 TAG xy
SELECT 表a
SET RELATION TO 材料名称+型号 INTO tj
SCAN
    cbh=ALLTRIM(表a.计划编号)
    REPLACE (cbh) WITH EVALUATE(cbh)+表a.数量 IN tj
ENDSCAN
SET RELATION TO
SELECT tj
SET ORDER TO
* 行合计
lnsum=""
FOR i=4 TO FCOUNT()   &&函数fcount()返回表中的字段数目
    lnsum=lnsum+"+"+FIELD(i) &&从第4列开始做行累加
ENDFOR
REPLACE ALL 合计 WITH &lnsum
BROWSE

坚守VFP最后的阵地
2018-08-09 13:18
bdbbing
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2018-7-12
  得分:0 
回复 7楼 sdta
咋整出来的?
2018-08-09 13:19
bdbbing
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2018-7-12
  得分:0 
运行没问题,是我要点结果。我研究研究。多谢啦
2018-08-09 13:22







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

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