SELECT 1
   USE d:\最密四生素数文件\四中和值26复.DBF ALIAS 四中和26复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值27.DBF ALIAS 四中和27 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj26 WITH sztj26+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值28复.DBF ALIAS 四中和28复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值27.DBF ALIAS 四中和27 &&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj28  WITH sztj28+A  &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值28复.DBF ALIAS 四中和28复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值29.DBF ALIAS 四中和29 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj28 WITH sztj28+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值30复.DBF ALIAS 四中和30复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值31.DBF ALIAS 四中和31 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj30 WITH sztj30+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值32复.DBF ALIAS 四中和32复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值31.DBF ALIAS 四中和31 &&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj32  WITH sztj32+A  &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值32复.DBF ALIAS 四中和32复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值33.DBF ALIAS 四中和33 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj32 WITH sztj32+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值34.DBF ALIAS 四中和34  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值33DBF ALIAS 四中和33&&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj34 WITH sztj34+A &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值34复.DBF ALIAS 四中和34复
   SELECT 2
   USE d:\最密四生素数文件\四中和值33.DBF ALIAS 四中和33
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj34 WITH sztj34+A &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
最后了到了点累