| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 819 人关注过本帖
标题:请教求块中对称行之和
取消只看楼主 加入收藏
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
结帖率:73.44%
收藏
已结贴  问题点数:20 回复次数:3 
请教求块中对称行之和
有11行1列的块(块很多)的原表,现要求每块中对称位置(如第1与第11、第2与第10等[中间行除外])的和并写入新表,代码如下但不成功,请指点,谢谢
clear
clear all
CLOSE ALL
SET SAFETY OFF
CREATE TABLE 新表 (运行记录号 N(10))
    ALTER table 新表 ADD 和2 n(20)
use 原表
select count(*) from 原表 where not empty(运行记录号) into array acnt
for lnI=1 to acnt[1]/11
*-------想求出每块中第1与第11行之和、第2与第10行之和,并将求得的和各写入新表
FOR NC=(LNI-1)*11+1 TO (LNI-1)*11+5
 nsum=0
    go NC   
    scatter to aa fields like 和1
    GO NC+6
    scatter to bb fields like 和1
           nsum=nsum+aa[lnJ]+bb[lnJ]
    endfor
    insert into 新表 values (lnI,nsum)
ENDFOR
select 新表
browse
MESSAGEBOX('求和已结束!',64,'信息提示')
DELETE FILE  *.BAK
QUIT  
   
 
求块中对称位置数之和.zip (193.83 KB)
搜索更多相关主题的帖子: count where 记录 
2015-04-20 20:05
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 7楼 sdta
先生您好,我是50年代末的一位数学老师,平时没什么爱好,只喜欢摆弄数字,尤其是数独,所以近段时间老是麻烦您,谢谢了啊
2015-04-23 08:16
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 9楼 sdta
哪有,56年啊,谢谢了
2015-04-23 16:57
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 12楼 sdta
先生对不起,我这个表述确实欠妥,应该是“50年代末出生的数学老师”
2015-04-24 13:09
快速回复:请教求块中对称行之和
数据加载中...
 
   



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

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