| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1047 人关注过本帖
标题:求助导出并自动纵横统计
只看楼主 加入收藏
chychychy
Rank: 2
等 级:论坛游民
帖 子:287
专家分:98
注 册:2015-4-18
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:12 
求助导出并自动纵横统计
遇到个复杂统计,但只会一句一句条件的统计,不能自动,太低效了,请高手帮忙实现自动提取数据并统计,实现效果如下图
2023信息.zip (4.82 KB)

图片附件: 游客没有浏览图片的权限,请 登录注册


[此贴子已经被作者于2023-8-9 11:55编辑过]

搜索更多相关主题的帖子: 统计 导出 自动 效果 数据 
2023-08-09 11:51
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:52
帖 子:525
专家分:1278
注 册:2010-1-11
收藏
得分:4 
数据量非常庞大吗? Excel处理这种数据最高效。
2023-08-09 14:12
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:4 
VFP中处理好再导入EXCEL中

坚守VFP最后的阵地
2023-08-09 15:29
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1732
专家分:3329
注 册:2012-2-29
收藏
得分:4 
回复 楼主 chychychy
可先确定 bmddm 类型,然后再汇总统计,这是一思路,仅供参考!
2023-08-09 16:03
fyyylyl
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:313
专家分:820
注 册:2006-5-22
收藏
得分:4 
试试:
CLOSE DATABASES
USE 2023信息 alia 信息
cStr1="SELECT xkkmzhdm,CNT(*) Zong"
cStr2="INSERT INTO Huizong(Xkkmzhdm,Zong"
cStr3="SELECT [合计],SUM(Zong)"
SELECT Bmddm,CNT(*) FROM 信息 GROUP BY Bmddm INTO CURSOR Bm
SCAN
    cStr1=cStr1+",SUM(IIF(!EMPTY("+Bmddm+")  AND Bmddm=["+Bmddm+"],1,0)) N"+Bmddm
    cStr2=cStr2+",N"+Bmddm
    cStr3=cStr3+",SUM(N"+Bmddm+")"
ENDSCAN
cStr1=cStr1+" FROM 信息 GROUP BY Xkkmzhdm INTO CURSOR Huizong READWRITE "
cStr2=cStr2+")"
cStr3=cStr3+" FROM Huizong"
ExecScript(cStr1)
ExecScript(cStr2+cStr3)
SELECT Huizong
BROWSE

2023-08-09 16:26
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:4 
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
USE 2023信息 ALIAS b2023
SELECT DISTINCT bmddm    FROM b2023 INTO ARRAY arr_bmddm
SELECT DISTINCT xkkmzhdm FROM b2023 ORDER BY xkkmzhdm INTO ARRAY arr_xkkmzhdm
cmd = "CREATE CURSOR tt (xkkmzhdm c(8),zong I"
FOR i=1 TO ALEN(arr_bmddm)
    cmd = cmd + "," + "_" + arr_bmddm[i] + " I"
ENDFOR
cmd = cmd + ")"
EXECSCRIPT(cmd)
APPEND FROM ARRAY arr_xkkmzhdm
INDEX on xkkmzhdm TAG xkkmzhdm
SELECT b2023
SET RELATION TO xkkmzhdm INTO "tt"  
SCAN 
    REPLACE tt.zong WITH tt.zong + 1, ("tt._"+b2023.bmddm) WITH EVALUATE("tt._"+b2023.bmddm) + 1
ENDSCAN
SELECT * FROM tt


[此贴子已经被作者于2023-8-9 21:09编辑过]

2023-08-09 21:05
z12689
Rank: 2
等 级:论坛游民
帖 子:49
专家分:83
注 册:2021-4-15
收藏
得分:4 
以下是引用吹水佬在2023-8-9 21:05:08的发言:



USE 2023信息 ALIAS b2023
SELECT DISTINCT bmddm    FROM b2023 INTO ARRAY arr_bmddm
SELECT DISTINCT xkkmzhdm FROM b2023 ORDER BY xkkmzhdm INTO ARRAY arr_xkkmzhdm
cmd = "CREATE CURSOR tt (xkkmzhdm c(8),zong I"
FOR i=1 TO ALEN(arr_bmddm)
    cmd = cmd + "," + "_" + arr_bmddm[i] + " I"
ENDFOR
cmd = cmd + ")"
EXECSCRIPT(cmd)
APPEND FROM ARRAY arr_xkkmzhdm
INDEX on xkkmzhdm TAG xkkmzhdm
SELECT b2023
SET RELATION TO xkkmzhdm INTO "tt"  
SCAN
    REPLACE tt.zong WITH tt.zong + 1, ("tt._"+b2023.bmddm) WITH EVALUATE("tt._"+b2023.bmddm) + 1
ENDSCAN
SELECT * FROM tt


学习了!
2023-08-10 09:53
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1732
专家分:3329
注 册:2012-2-29
收藏
得分:0 
回复 6楼 吹水佬
高,学习啦,谢谢!
2023-08-10 10:20
chychychy
Rank: 2
等 级:论坛游民
帖 子:287
专家分:98
注 册:2015-4-18
收藏
得分:0 
@fyyylyl @吹水佬 因出发未能用电脑,刚测试两个都符合要求,太感谢了 ,有些语句还不是很懂含义,继续学习。
2023-08-11 15:02
chychychy
Rank: 2
等 级:论坛游民
帖 子:287
专家分:98
注 册:2015-4-18
收藏
得分:0 
@fyyylyl @吹水佬 本想结贴提供程序代码的两位高手,但不小心结贴散分点错了,请见谅。
2023-08-11 15:18
快速回复:求助导出并自动纵横统计
数据加载中...
 
   



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

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