求助：谢谢
有10组三位数：
125
256
358
268
584
812
936
765
491
052
表1每小时更新一组随机四位数，与上述10组数对比，只要包含三位数，不管顺序，标记为真！谢谢
如：表1
time          sjhm     jud
8：00       3278     F
9：00       1025     T
10：00     2108     F
11：00     0032     F
12：00     0936     T
13：00     1049     T
14：00     3066     F

对，符合，我写错了

10：00     2108     T

3位不会有重复
表1是每小时更新，记录不断增加，每条记录都要判断一次真假！

[此贴子已经被作者于2021-8-24 10:22编辑过]

大哥，判断四位数要到表1查找，上万条记录不能都写程序里呀，谢谢您😀

对对，增加一条就判断真假，谢谢您了👍🏻👍🏻

请教下，我怎么循环不起来？只判断了一条记录？！😅

use  表1
if eof()
xx='125'
sn=0
for i=1 to 3
  zf=subs(xx,i,1)  
  if zf$allt(sjhm)
    sn=sn+1
  endif
endfor
if sn=3
repl  jud with .T.
*  ? xx+'  结果为　真'  
skip
endif
endif