吹水佬老师：你好。非常感谢以前的帮助。

发过去2个表，表1：分列15期2，表2：3djcsj1（这个表是000到999,共1000行，下一行应在其中）

我的想法是：将表2中每一行，分别放到表1的最后一行，和表1的最后14行一起进行统计。
           即表2的每一行都分别是表1的最后一行，然后进行15行统计。
           统计结果放在表2的相应位置，h1s1....h1s15，h2s1...h2s15，h3s1...h3s15。
           表1，表2，它们的数据要经常更新，所以不能是临时表。

我把8月5日你回复的程序复制在下面：

USE 分列统计15期 ALIAS tj
DIMENSION a1[15], a2[15], a3[15]
STORE 0 TO a1,a2,a3
SCAN
    GATHER FROM a1 FIELDS h1s15,h1s14,h1s13,h1s12,h1s11,h1s10,h1s9,h1s8,h1s7,h1s6,h1s5,h1s4,h1s3,h1s2,h1s1
    GATHER FROM a2 FIELDS h2s15,h2s14,h2s13,h2s12,h2s11,h2s10,h2s9,h2s8,h2s7,h2s6,h2s5,h2s4,h2s3,h2s2,h2s1
    GATHER FROM a3 FIELDS h3s15,h3s14,h3s13,h3s12,h3s11,h3s10,h3s9,h3s8,h3s7,h3s6,h3s5,h3s4,h3s3,h3s2,h3s1
    ADEL(a1,1)
    ADEL(a2,1)
    ADEL(a3,1)
    a1[15] = h1
    a2[15] = h2
    a3[15] = h3
ENDSCAN
GO TOP
BROWSE

再次感谢你的帮助！

只从表1最后14行起统计，取表1最后14行 + 表2的所有行就是了吧。

不是。
   是表1的最后14行+表2的第一行，统计结果放在表2的第一行；
再进行表1的最后14行+表2的第二行，统计结果放在表2的第二行；
再进行表1的最后14行+表2的第三行，统计结果放在表2的第三行；
..........
在进行表1的最后14行+表2 的第1000行，结果放在表2的第1000行。

中秋快乐！

那个数组前14个元素是固定的（表1的最后14行），最后一个元素（第15个元素）是变动的（表2的各行记录）

吹水佬老师，你好！
在程序中哪个位置体现最后一行（表2的各行）的变动（循环）。
我不会写这个程序，恳请老师帮忙。

是不是这意思
USE 分列15期2 ALIAS b1 IN 0
USE 3djcsj1 ALIAS b2 IN 0
SELECT b1
COPY TO ARRAY a1 FIELDS h1 FOR RECNO()>(RECCOUNT()-14)
COPY TO ARRAY a2 FIELDS h2 FOR RECNO()>(RECCOUNT()-14)
COPY TO ARRAY a3 FIELDS h3 FOR RECNO()>(RECCOUNT()-14)
DIMENSION a1[14], a2[14], a3[14]
SELECT b2
SCAN
    GATHER FROM a1 FIELDS h1s15,h1s14,h1s13,h1s12,h1s11,h1s10,h1s9,h1s8,h1s7,h1s6,h1s5,h1s4,h1s3,h1s2
    GATHER FROM a2 FIELDS h2s15,h2s14,h2s13,h2s12,h2s11,h2s10,h2s9,h2s8,h2s7,h2s6,h2s5,h2s4,h2s3,h2s2
    GATHER FROM a3 FIELDS h3s15,h3s14,h3s13,h3s12,h3s11,h3s10,h3s9,h3s8,h3s7,h3s6,h3s5,h3s4,h3s3,h3s2
    REPLACE h1s1 WITH h1, h2s1 WITH h2, h3s1 WITH h3
ENDSCAN
GO TOP
BROWSE

非常感谢。先把帖子结了。我今天非常忙。明天要去看儿子儿媳孙女，得准备好多东西。
有时间在运行、验证。
再次感谢版主的帮助。

吹水佬热心助人,看到很感动啊