在表分列统计15期中，有三列（三个字段），h1,h2,h3，
这是福彩3D从开始到2014年的数据。
我的设想是：
第一个小循环
将指针移到最后一行2014147（4445），以这一行为基准，对h1列进行数据扫描，
由2014146至2014132（4444至4430），并且将这15个数字，按2014146、2014145、
2014144、2014143、2014142.......的顺序，
放至表中基准行（2014147行）的h1s1,h1s2,h13,h14....字段中；
第二个小循环
将指针上移一行至2014146,再以这一行为基准，对h1列进行扫描，
由2014145至2014131（4443至4429），同样将15个数字按2014145、2014144、
2014143、2014142....的顺序，放至第二个小循环的基准行（2014146）的h1s1,h1s2
h1s3,h1s3....字段中；
第三个小循环
依上述依次进行。每进行一个小循环，指针都要上移一行。直至表顶（或进行至4000行）。
上述对h1的扫描完成，即完成一个大循环。

第二个大循环，是依据上述方法，对h2进行数据扫描，
并把15个数字依次放至h2s1,h2s2,h2s3,h2s4.....字段中。

第三个大循环，是对h3进行数据扫描。并把15个数字放至h3s1,h3s2,h3s3,h3s4...字段中。

第二个思路是：

先分别进行对h1,h2,h3的小循环，将指针上移一行，再进行对h1,h2,h3的小循环，直至4000行。

提供的表不是自由表

正如你所言，采用循环就可以达到要求，手动操作了一下，请看一看我的理解对否？

对，不是自由表。
您的表我核对了三行，没有错。我什么时候能看到程序？
非常感谢！

我是退休的老头，已经65了。大学学的是中文。我的单位一直使用VF，多少有一些了解。退休后没事就想进一步学习。
我想看程序，是想能不能用第二种方法做出来。
我现在只会简单的命令语句，复杂一点的就不行了。不会用计算机语言的思维方式去思考。
希望得到您的帮助。

不是自由表，怎样打开？

我是退休的老头，已经65了。大学学的是中文。我单位一直用VF，多少了解一些。退休后没事，想进一步学习。
我现在只会一些简单的命令语句。复杂一点的就不行了。
我想看程序，是看看能不能用不同的语句排列解决问题。文无定法，计算机语言也应同理。

我的数据库名：3D

直接清除表文件尾的3D部分就自由了

不好意思，刚才开会，我也不是学计算机的，仅业余爱好，你比我年长一轮，向你学习！
应该有多种办法达到要求，以下是其中一种，简单、可行，仅供参考。
*** Test.prg ***
SET TALK OFF
SET SAFETY OFF
CLOSE ALL
SELECT * FROM flsj ORDER BY qihao DESC INTO TABLE _ZB  && 将原来的中文数据文件名 改为 flsj
SELECT * FROM flsj ORDER BY qihao DESC INTO TABLE _FB
SELECT _ZB
GO top
js = 1
DO WHILE NOT EOF()
   SELECT _FB
   GO TOP
   SKIP js
   FOR i = 1 TO 15
       lssz1 = H1
       lssz2 = H2
       lssz3 = H3
       ThZD1 = "H1s"+ALLTRIM(str(i))
       ThZD2 = "H2s"+ALLTRIM(str(i))
       ThZD3 = "H3s"+ALLTRIM(str(i))
       SELECT _ZB
       REPLACE (Thzd1) WITH lssz1,(Thzd2) WITH lssz2,(Thzd3) WITH lssz3
       SELECT _FB
       IF EOF()
          EXIT
       ELSE
          SKIP
       ENDIF         
   ENDFOR
   SELECT _ZB
   IF EOF()
      EXIT
   ELSE
      SKIP
   ENDIF
   js = js + 1        
ENDDO
SELECT * FROM _ZB ORDER BY Qihao INTO TABLE 数据表
SELECT 数据表
BROWSE last
CLOSE ALL
ERASE _*.*
QUIT

[此贴子已经被作者于2019-8-5 17:04编辑过]