有一原表，内有13行7列的块（有很多这样的块，用select * from 原表 into array yb语句时提示内存不够），现在想求这些块中的第7行各数的平方和，并将这个平方和写入新表，代码如下，但不成功，请指点，谢谢
CLEAR
SET SAFETY OFF
CLOSE ALL
*---------------------------------
pfh=0
CREATE TABLE 新表 (原运行号 N(10))
    ALTER table 新表 ADD 和 n(20)
USE 原表 ALIAS 原表 IN 0
SELECT 原表
GO 2
i = 0
DO WHILE !EOF("原表")   
    DIMENSION a原表[15, 9]
    COPY TO ARRAY a原表 FIELDS LIKE 列* NEXT 15  
    i = i + 1
 FOR j=1 TO 9
  pfh=pfh+('列'+ALLTRIM(STR(j)))^2
 ENDFOR
 SELECT 新表
 APPEND BLANK
 REPLACE 原运行号 WITH i  
APPEND BLANK
 REPLACE 和 WITH pfh   
 ENDDO
BROWSE
CLOSE DATABASES ALL
RETURN
MESSAGEBOX('求和已结束！',64,'信息提示')
DELETE FILE  *.BAK
QUIT  
附件如下（因原表文件太大，在附件中只保留了这样的块共100块）

原来的问题不是这样的

先生您好，我能将原表中的数据拷到临时表，代码如下：
CREATE CURSOR 临时表 (运行记录号 I,列1 I, 列2 I, 列3 I, 列4 I, 列5 I, 列6 I, 列7 I, 列8 I,列9 I)
APPEND FROM 原表.dbf
*---------
BROWSE
但是不会从临时表的每块的第7行求它的平方和，请求先生指点，谢谢

回先生，是否是前者的新表是临时表，只浏览了一下，未保存新表

哦，谢谢先生