产生原始表数据.prg

对大批量数据排序

CLEAR
SELECT 0
USE 试验信息
SELECT 0
USE 原始表
SET SAFETY OFF
ZAP
=rand(-1)
StartTime=DateTime()
FOR i=1 TO 50000000
  APPEND BLANK
  REPLACE 数据 WITH rand()*10000000
NEXT
EndTime=DateTime()
RunTime=EndTime-StartTime
? "产生表用了"+ALLTRIM(STR(RunTime))+"秒"
SELECT 试验信息
APPEND BLANK
REPLACE 试验信息 WITH "产生表用了"+ALLTRIM(STR(RunTime))+"秒"

StartTime=DateTime()
SELECT 原始表 
SORT ON 数据 TO 结果表
EndTime=DateTime()
RunTime=EndTime-StartTime
? "排序用了"+ALLTRIM(STR(RunTime))+"秒"
SELECT 试验信息
APPEND BLANK
REPLACE 试验信息 WITH "排序用了"+ALLTRIM(STR(RunTime))+"秒"

SELECT 原始表 
USE
SELECT 0
USE 结果表
*BROWSE
USE
SELECT 试验信息
BROWSE
USE
SET SAFETY ON