请教先生，有一个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编辑过]

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

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

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

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