|
|
SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 170
USE G:\三角递增法\偶数周期表170.DBF ALIAS 偶周期170
SELECT 171
USE G:\三角递增法\偶数周期表171.DBF ALIAS 偶周期171
SELECT 172
USE G:\三角递增法\偶数周期表172.DBF ALIAS 偶周期172
SELECT 173
USE G:\三角递增法\偶数周期表173.DBF ALIAS 偶周期173
SELECT 174
USE G:\三角递增法\偶数周期表174.DBF ALIAS 偶周期174
SELECT 175
USE G:\三角递增法\偶数周期表175.DBF ALIAS 偶周期175
SELECT 176
USE G:\三角递增法\偶数周期表176.DBF ALIAS 偶周期176
SELECT 177
USE G:\三角递增法\偶数周期表177.DBF ALIAS 偶周期177
SELECT 178
USE G:\三角递增法\偶数周期表178.DBF ALIAS 偶周期178
SELECT 179
USE G:\三角递增法\偶数周期表179.DBF ALIAS 偶周期179
SELECT 180
USE G:\三角递增法\偶数周期表180.DBF ALIAS 偶周期180
SELECT 181
USE G:\三角递增法\偶数周期表181.DBF ALIAS 偶周期181
SELECT 182
USE G:\三角递增法\偶数周期表182.DBF ALIAS 偶周期182
SELECT 183
USE G:\三角递增法\偶数周期表183.DBF ALIAS 偶周期183
SELECT 184
USE G:\三角递增法\偶数周期表184.DBF ALIAS 偶周期184
SELECT 185
USE G:\三角递增法\偶数周期表185.DBF ALIAS 偶周期185
SELECT 186
USE G:\三角递增法\偶数周期表186.DBF ALIAS 偶周期186
SELECT 187
USE G:\三角递增法\偶数周期表187.DBF ALIAS 偶周期187
kssj=SECONDS()
bwjm="偶周期"
For j=170 to 187
@ 5,12 say j
k=j
wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')
&& SELECT 1 && 未使用的工作区
&& USE G:\三角递增法\&WD ALIAS n && 打开 Customer 表
For i=(j-1)*500000+1 to (j+1)*500000
@ 5,12 say i
n=i
s=0
IF MOD(n,5)=1
s=s+30
ENDIF
IF MOD(n,5)=2
s=s+90
ENDIF
IF MOD(n,5)=3
s=s+120
ENDIF
IF MOD(n,5)=4
s=s+180
ENDIF
IF MOD(n,5)=0
s=s+210
ENDIF
wou=INT((n-1)/5)*210+s
SELECT "偶周期"+ALLTRIM(STR(k))
&& select G:\三角递增法\&WD..DBF IN 0
A=偶数
IF A=wou
SELECT "偶周期"+ALLTRIM(STR(k))
skip
LOOP
ELSE
SELECT 239
APPEND BLANK
REPLACE 无偶 WITH wou
ENDIF
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示") |
|
[复制链接]
IP卡
狗仔卡
发表于 2021-11-13 11:10
显身卡