请教先生，有一个5行16列的“原表”，对于第一行的16个数据，若有一个不相等成立（见以下代码或压缩包），则进入下一循环，否则在“搜索表”写入这16个数据，直至文件尾。
原表中有符合要求的行，但运行下来“搜索表”中怎么是空白，谢谢指导！
CLEAR
SET SAFETY OFF
CLOSE ALL
USE 原表
HS=RECCOUNT()
LS=FCOUNT()
DIMENSION yb(HS,LS)
DIMENSION sj(1,16)
select * from 原表 into array yb
**********************************************
USE 搜索表
do while not eof()
IF yb(1,1)+yb(1,2)+yb(1,3)+yb(1,4)!=yb(1,5)+yb(1,6)+yb(1,7)+yb(1,8) or yb(1,5)+yb(1,6)+yb(1,7)+yb(1,8)!=yb(1,9)+yb(1,10)+yb(1,11)+yb(1,12) or yb(1,9)+yb(1,10)+yb(1,11)+yb(1,12)!=yb(1,13)+yb(1,14)+yb(1,15)+yb(1,16) or ;
   yb(1,1)+yb(1,5)+yb(1,9)+yb(1,13)!=yb(1,2)+yb(1,6)+yb(1,10)+yb(1,14) or yb(1,2)+yb(1,6)+yb(1,10)+yb(1,14)!=yb(1,3)+yb(1,7)+yb(1,11)+yb(1,15) or yb(1,3)+yb(1,7)+yb(1,11)+yb(1,15)!=yb(1,4)+yb(1,8)+yb(1,12)+yb(1,16) or ;
   yb(1,1)+yb(1,2)+yb(1,3)+yb(1,4)!=yb(1,1)+yb(1,6)+yb(1,11)+yb(1,16) or yb(1,1)+yb(1,5)+yb(1,9)+yb(1,13)!=yb(1,4)+yb(1,7)+yb(1,10)+yb(1,13)
  EXIT
  ELSE
   APPEND BLANK
    FOR m=1 TO 16
      REPLACE ('列'+ALLTRIM(STR(m))) WITH yb(1,m)  
    endfor
 endif  
enddo
**********************************************
MESSAGEBOX('本次运行结束！',64,'信息提示')

[此贴子已经被作者于2020-5-8 15:00编辑过]

你的IF中的内容写法是错的，（行，列）的写法是EXCEL的

你的相等，讲述不清晰

是个二维数组，这八个不等式若至少有一个为真，则退出，否则写入这一行的16个数到“搜索表”，错在何处我不明白，谢谢

[此贴子已经被作者于2020-5-8 15:23编辑过]

现在发现，经 select * from 原表 into array yb 后得到的yb()内存数值无法传递到 do while not eof() 后的相关式子中，请求指导，谢谢

USE 搜索表
ZAP
USE 原表
SCAN
    SCATTER MEMO TO yb
    IF yb(1)+yb(2)+yb(3)+yb(4) != yb(5)+yb(6)+yb(7)+yb(8) or;
       yb(5)+yb(6)+yb(7)+yb(8) != yb(9)+yb(10)+yb(11)+yb(12) or;
       yb(9)+yb(10)+yb(11)+yb(12) != yb(13)+yb(14)+yb(15)+yb(16) or;
       yb(1)+yb(5)+yb(9)+yb(13) != yb(2)+yb(6)+yb(10)+yb(14) or;
       yb(2)+yb(6)+yb(10)+yb(14) != yb(3)+yb(7)+yb(11)+yb(15) or;
       yb(3)+yb(7)+yb(11)+yb(15) != yb(4)+yb(8)+yb(12)+yb(16) or;
       yb(1)+yb(2)+yb(3)+yb(4) != yb(1)+yb(6)+yb(11)+yb(16) or;
       yb(1)+yb(5)+yb(9)+yb(13) != yb(4)+yb(7)+yb(10)+yb(13)
       LOOP
    ENDIF
    INSERT INTO 搜索表 FROM ARRAY yb
ENDSCAN
SELECT * FROM 搜索表

[此贴子已经被作者于2020-5-8 21:41编辑过]

先生真神了，我的问题又被您随手解决了，谢谢先生！

学习了，谢谢