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

我将程序的结尾改为：SELECT * FROM 3d9选个数

结果并没有在3d9选个数表里显示。3d9选个数里只显示原有的三行记录。

老师讲的“tmp放进3d9选个数”怎么放？在何处放？

USE 3d9选个数 IN 0 ALIAS t_3d9选个数
SELECT * FROM t_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
SELECT t_3d9选个数
LOCATE FOR qihao==atj[1]
IF FOUND()
    GATHER FROM atj
ELSE
    APPEND FROM ARRAY atj
ENDIF
SELECT * FROM t_3d9选个数
CLOSE DATABASES ALL
RETURN

sdta老师你好！

CLOSE DATABASES
t1 = SECONDS()
USE d3选个数 && 原名：3d9选个数
ZAP （我改动为*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选个数

我将zap注释掉了，就出现上面的结果。将zap恢复后，在d3选个数表里显示的只是一行数据。
在分列统计15期增加一条记录，运行老师的程序，d3选个数里显示的只是增加的那一条记录的统计。
我的想法是d3选个数表里数据每一行都应该保留，以便观察和进一步统计。不知应该怎么改，请老师指教。
谢谢！

顺便说说，文件名要按规范起名，“3d9选个数”是不规范的。

LOCAL ii,xqh,xfield
USE 分列统计15期 alias aa IN 0
SELECT aa
GO BOTTOM
xqh =qihao

USE 3d999个数 ALIAS cc IN 0

USE 3d9选个数 ALIAS bb IN 0
SELECT bb
LOCATE FOR qihao=xqh
IF EOF()    && 没找到，增加
    APPEND BLANK
    REPLACE qihao WITH xqh
ELSE   
    && 找到了，不需要做什么
ENDIF

SELECT bb
FOR ii=1 TO 190
    xfield = 'N'+TRANSFORM(ii)
    UPDATE bb SET &xfield=b.numcount FROM bb,(select COUNT(*) numcount FROM cc WHERE &xfield=aa.&xfield) b WHERE bb.qihao=xqh
ENDFOR

SELECT bb
* 最后一行是统计结果
BROWSE