标题:请教求块中对称行之和
取消只看楼主
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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-444303-1-1.html




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

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