各位老师好！
发过去3个表。我的想法是：
  用分列统计15期表里的N1字段的最后一行的值，与3d999个数表里的N1的值（1000个记录）逐个比较。相等的，在3d选个数表里的N1字段记1（1000行中有几个相等的就记几），不相等的记0.
  用分列统计15期表里的N2字段的最后一行的值，与3d999个数表里的N2的值（1000个记录）逐个比较。相等的，在3d选个数表里的N2字段记1（1000行中有几个相等的就记几），不相等的记0.
.........
  用分列统计15期表里的N190字段的最后一行的值，与3d999个数表里的N190的值（1000个记录）逐个比较。相等的，在3d选个数表里的N190字段记1（1000行中有几个相等的就记几），不相等的记0.

这是个循环套循环的程序。我只有大概思路。具体到写代码就不会了。恳请各位老师帮助。

3d选个数表里的3行记录，是我用select n1 from 3d999个数 where n1=xxx  执行190次，手工填上去的。每执行一次，n后面的数字和=后面的数字都得改动。

CLOSE DATABASES 
t1 = SECONDS()
USE d3选个数 && 原名：3d9选个数
ZAP 
lcZd = ""
FOR lnj = 1 TO AFIELDS(azds)
    lcZd = lcZd + "," + azds[lnj, 1]
ENDFOR
lcZd = SUBSTR(lcZd, 2)

SELECT &lcZd FROM 分列统计15期 WHERE RECNO() = RECCOUNT() INTO ARRAY afl
USE
lcZd1 = SUBSTR(lcZd, 7)
SELECT &lcZd1 from d3_999个数 INTO CURSOR temp
INSERT INTO d3选个数 (Qihao) values(afl[1])
FOR lnj = 2 TO ALEN(afl)
    SELECT temp
    lc = FIELD(lnj - 1)
    COUNT TO nCnt FOR &lc = afl[lnj]
    REPLACE (lc) WITH nCnt RECORD 1 IN d3选个数
ENDFOR
? SECONDS() - t1
SELECT d3选个数
BROWSE 

sdta老师你好！
代码看了。有不懂的地方，还要请教。
运行一下，结果是只有qihao在d3选个数表中有数字显示，n1到n190为空。不知为什么？

另外，我把zap清空命令前加了*，因为d3选个数表里的数据需累计，每一行的数据都要保存。

SELECT * FROM 3d9选个数 WHERE .F. INTO CURSOR tmp READWRITE 
SELECT tmp
APPEND FROM 分列统计15期 FOR RECNO()==RECCOUNT()
SCATTER TO arr
ZAP
APPEND FROM 3d999个数
DIMENSION atj[ALEN(arr)] 
STORE 0 TO atj
n = FCOUNT()
atj[1] = arr[1]
SCAN 
    SCATTER TO ar
    FOR i=2 TO n
        IF ar[i]==arr[i]
            atj[i] = atj[i] + 1
        ENDIF
    ENDFOR
ENDSCAN
ZAP
APPEND FROM ARRAY atj
SELECT * FROM tmp

[此贴子已经被作者于2021-6-5 14:51编辑过]

吹水佬老师，你好！
代码看了，也运行了。
但是，运行结果只显示为查询，并没有写在3d9选个数表的最后一行。能否请老师帮助，将运行结果写在3d9选个数表的最后一行。
这个结果需要一行一行积累，因此，3d9选个数表不能清空。谢谢。

结果在tmp临时表
要放进“3d9选个数表”就 APPEND 进去