吹水佬老师：你好！8月初你帮我写的程序，我感觉非常好。因为一个新老头手在查阅VFP帮助后，
基本能看懂。
现在有2个问题：一个，将程序运行后形成的临时表，变成表，我不知道ALIAS tj 应怎么改。
               二个，将表的最后一行作为起点（原来是把表的最后一行作为基准），上数14行。
                    加上起点行，正好是15行。我把ADEL去掉，结果45列只有3列有数字。
我把程序和表发过去。

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
*into table 分列15期2.dbf
BROWSE

一个，USE 分列统计15期 ALIAS tj 这句ALIAS子项是打开“分列统计15期”表时给他起个别名“tj”
二个，之前是按顺序取15行的数放到下一行的记录。现在是取多少行的数，再放到哪一行的记录里？

CLOSE DATABASES
USE 分列统计15期
FOR i = 5 TO FCOUNT()
    BLANK FIELDS (FIELD(i)) ALL
ENDFOR
DIMENSION a1[15], a2[15], a3[15]
STORE 0 TO a1,a2,a3
SCAN
    a1[15] = h1
    a2[15] = h2
    a3[15] = h3
    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)
ENDSCAN
SELECT * FROM 分列统计15期 INTO TABLE 分列15期2
BROWSE
* 是不是下图结果

版主，你好!
一个，into table 表.dbf  放在哪一行？
二个，现在是取2014148至2014134（15行），放在2014148哪一行。

你好!参加版主投票，才知道你。非常感谢。
第一个循环：for i=5 to fcount()
          ...........
          endfor
起什么作用？表左端只有4个字段是通用的。

不明白的地方看帮助文件

是将要统计的数据取出到“表.dbf”再在“表.dbf”进行统计吧
SELECT ...... INTO TABLE 表.dbf
SELECT 表
DIMENSION a1[15], a2[15], a3[15]
STORE 0 TO a1,a2,a3
SCAN
    a1[15] = h1
    a2[15] = h2
    a3[15] = h3
    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)
ENDSCAN
BROWSE