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

发过去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行+表2的第一行，统计结果放在表2的第一行；
再进行表1的最后14行+表2的第二行，统计结果放在表2的第二行；
再进行表1的最后14行+表2的第三行，统计结果放在表2的第三行；
..........
在进行表1的最后14行+表2 的第1000行，结果放在表2的第1000行。

中秋快乐！

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

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