请教从“块”中取数后求平方和并写入新表问题
有一原表,内有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块)
请教.zip
(4.35 KB)