[原创]请教vfbpgyfk先生一个编程问题

白新岭

截止2025年06月22日周日25:52分浏览量784253， 回复3829，热度282
截止2025年06月23日周一09:54分浏览量785157， 回复3830，热度282

白新岭

截止2025年06月22日周日25:52分浏览量784253， 回复3829，热度282
截止2025年06月23日周一23:38分浏览量786726， 回复3831，热度282

白新岭

截止2025年06月23日周一23:38分浏览量786726， 回复3831，热度282
截止2025年06月24日周二10:33分浏览量786980， 回复3832，热度282

白新岭

截止2025年06月23日周一23:38分浏览量786726， 回复3831，热度282
截止2025年06月24日周二21:48分浏览量789632， 回复3833，热度282

白新岭

SELECT 1
   USE d:\最密四生素数文件\四中和值2复.DBF ALIAS 四中和2复
   SELECT 2
   USE d:\最密四生素数文件\四中和值2.DBF ALIAS 四中和2
   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 sztj2 WITH sztj2+A
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

ELECT 1
   USE d:\最密四生素数文件\四中和值2复.DBF ALIAS 四中和2复
   SELECT 2
   USE d:\最密四生素数文件\四中和值2.DBF ALIAS 四中和2
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC B
      B=szhz2
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        APPEND BLANK     &&增加一条空记录
        REPLACE szhz2f WITH B
        REPLACE sztj2  WITH 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:\最密四生素数文件\四中和值2复.DBF ALIAS 四中和2复
   SELECT 2
   USE d:\最密四生素数文件\四中和值3.DBF ALIAS 四中和3
   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+21246940
        REPLACE sztj2 WITH sztj2+A
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

截止2025年06月24日周二21:48分浏览量789632， 回复3833，热度282
截止2025年06月25日周三09:41分浏览量791079， 回复3837，热度282

白新岭

SELECT 1
   USE d:\最密四生素数文件\四中和值4复.DBF ALIAS 四中和4复
   SELECT 2
   USE d:\最密四生素数文件\四中和值3.DBF ALIAS 四中和3
   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 sztj4  WITH sztj4+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:\最密四生素数文件\四中和值4复.DBF ALIAS 四中和4复
   SELECT 2
   USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
   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 sztj4 WITH sztj4+A
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")