| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 304 人关注过本帖
标题:按项目求和
只看楼主 收藏
tjdeming
Rank: 2
等 级:论坛游民
帖 子:339
专家分:49
注 册:2013-3-4
结帖率:87.04%
  已结贴   问题点数:20  回复次数:6   
按项目求和
求助解答,谢谢。
B表变成B2结构并求和

[此贴子已经被作者于2018-1-5 22:33编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2018-01-05 22:32
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:158
帖 子:6968
专家分:16165
注 册:2012-2-5
  得分:20 
程序代码:
select distinct 项目 from B表 into array axm
select distinct 部门车间 from B表 into array acj
lcstr="项目 c(50),合计 n(10,2)"
for i=1 to alen(acj,1)
    lcstr=lcstr+","+alltrim(acj[i,1])+" n(10,2)"
endfor
create cursor b2 (&lcstr)
append from array axm
index on 项目 tag xm
select B表
set relation to 项目 into b2
scan
    replace (B表.部门车间) with evaluate(B表.部门车间)+B表.数量 in b2
endscan
set relation to
select b2
set order to
* 行合计
lnsum=""
for i=3 to fcount()
    lnsum=lnsum+"+"+field(i)
endfor
replace all 合计 with &lnsum
* 列合计
insert into b2 (项目) values ("合计")
for i=2 to fcount()
    sum evaluate(field(i)) to lhj
    replace record reccount() (field(i)) with lhj
endfor
browse

附件: 您没有浏览附件的权限,请 登录注册

QQ:243688667
2018-01-05 23:39
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:158
帖 子:6968
专家分:16165
注 册:2012-2-5
  得分:0 
此类问题,在以前的帖子里已经回复过你了

QQ:243688667
2018-01-05 23:51
tjdeming
Rank: 2
等 级:论坛游民
帖 子:339
专家分:49
注 册:2013-3-4
  得分:0 
回复 3楼 sdta
感谢SDTA的热心回复,此程序在9.0下运行正常。(6.0版本还没有试)
我是这样想的:有了一张原始表的数据后,从中统计数据,从不同的角度按项目等分类来分析数据,这就需要程序来解决。有效率。
每次都要来麻烦你,不好意思。
再次感谢。
2018-01-06 11:21
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:158
帖 子:6968
专家分:16165
注 册:2012-2-5
  得分:0 
这是VFP6.0代码

QQ:243688667
2018-01-06 11:24
tjdeming
Rank: 2
等 级:论坛游民
帖 子:339
专家分:49
注 册:2013-3-4
  得分:0 
回复 5楼 sdta
谢谢你,SDTA
2018-01-06 11:51
厨师王德榜
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:63
帖 子:411
专家分:1415
注 册:2013-2-16
  得分:0 
关于交叉表的问题,这里有更透彻的讨论。
http://bbs.bccn.net/viewthread.php?tid=462060&page=1#pid2554156
2018-01-09 13:04







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

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