| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2375 人关注过本帖
标题:联系版主吹水佬
只看楼主 加入收藏
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
结帖率:100%
收藏
已结贴  问题点数:80 回复次数:5 
联系版主吹水佬
吹水佬老师,你好!
发过去2个表,2个程序。
我的想法是:
将表2中的每一行,分别当作表1的最后一行,再对表1 进行15行统计。
统计表1的h1,h2,h3的每一列15行的0-9数字出现的次数,并将结果放到表2相对应的每一行中。
恳请老师在百忙中帮忙实现上述目的。
发过去2个程序,都是你以前帮我做的。我不会将2个程序合在一起,琢磨了很长时间,也不知从何下手。让你见笑了。
十分感谢你的帮助。
搜索更多相关主题的帖子: 老师 一行 版主 联系 统计 
2019-12-24 10:32
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
收藏
得分:0 
2019-12-24 10:34
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:40 
是不是这意思:
表1最后14行 + 表2第1行,统计这15行的h1,h2,h3的0-9数字出现的次数,结果放到表2第1行。
表1最后14行 + 表2第2行,统计这15行的h1,h2,h3的0-9数字出现的次数,结果放到表2第2行。
表1最后14行 + 表2第3行,统计这15行的h1,h2,h3的0-9数字出现的次数,结果放到表2第3行。
......
表1最后14行 + 表2第n行,统计这15行的h1,h2,h3的0-9数字出现的次数,结果放到表2第n行。
2019-12-24 11:46
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
收藏
得分:0 
回复 3楼 吹水佬
是。希望老师写出程序。谢谢。
2019-12-24 16:45
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:40 
USE 表1
** 取表1最后14行的H1、H2、H3
COPY TO ARRAY a1 FIELDS h1 FOR RECNO()>(RECCOUNT()-14)
COPY TO ARRAY a2 FIELDS h2 FOR RECNO()>(RECCOUNT()-14)
COPY TO ARRAY a3 FIELDS h3 FOR RECNO()>(RECCOUNT()-14)
DIMENSION a1[14],a2[14],a3[14]
** 统计表1最后14行H1、H2、H3的0-9数字出现的次数
DIMENSION aH1[10],aH2[10],aH3[10]
STORE 0 TO aH1,aH2,aH3
FOR i=1 TO 14
    aH1[a1[i]+1] = aH1[a1[i]+1] + 1
    aH2[a2[i]+1] = aH2[a2[i]+1] + 1
    aH3[a3[i]+1] = aH3[a3[i]+1] + 1
ENDFOR
**表1最后14行 + 表2第n行,统计这15行的h1,h2,h3的0-9数字出现的次数,结果放到表2第n行。
USE 表2
SCAN
    aH1[h1+1] = aH1[h1+1] + 1
    aH2[h2+1] = aH2[h2+1] + 1
    aH3[h3+1] = aH3[h3+1] + 1
    GATHER FROM aH1 FIELDS h1_0,h1_1,h1_2,h1_3,h1_4,h1_5,h1_6,h1_7,h1_8,h1_9
    GATHER FROM aH2 FIELDS h2_0,h2_1,h2_2,h2_3,h2_4,h2_5,h2_6,h2_7,h2_8,h2_9
    GATHER FROM aH3 FIELDS h3_0,h3_1,h3_2,h3_3,h3_4,h3_5,h3_6,h3_7,h3_8,h3_9
    aH1[h1+1] = aH1[h1+1] - 1
    aH2[h2+1] = aH2[h2+1] - 1
    aH3[h3+1] = aH3[h3+1] - 1
ENDSCAN
SELECT * FROM 表2
2019-12-24 17:21
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
收藏
得分:0 
回复 5楼 吹水佬
非常感谢!
2019-12-24 18:08
快速回复:联系版主吹水佬
数据加载中...
 
   



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

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