MD C:\SPEED CREATE TABLE C:\SPEED\SPEED.DBF FREE ; (Spd_ID I, ; Spd_Char C(10), ; Spd_Date D, ; Spd_DT T) LOCAL ; m.lnI, ; m.lnX, ; m.Spd_ID, ; m.Spd_Char, ; m.Spd_Date, ; m.Spd_DateTime FOR m.lnI = 1 TO 1000000 m.SPD_ID = m.lnI m.SPD_CHAR = TRANSFORM(m.lnI) *This will give me groups of records *with the same date / date time. m.LNX = m.lnI/100 m.SPD_DATE = {^2000-01-01}+m.lnX m.SPD_DT = {^2000-01-01 00:00:00}+m.lnX INSERT INTO SPEED FROM MEMVAR IF MOD(m.lnI,1000) = 0 WAIT WINDOW TRANSFORM(m.lnI) NOWAIT ENDIF ENDFOR INDEX ON SPD_ID TAG SPD_ID INDEX ON SPD_CHAR TAG SPD_CHAR INDEX ON SPD_DATE TAG SPD_DATE INDEX ON SPD_DT TAG SPD_DT CLEAR ALLThe following code will demonstrate the progress bar NOT appearing. Uncomment the lines indicated in the comments to show the progress bar.
SET TALK NOWINDOW SET TALK OFF SET NOTIFY OFF lcOldPath = SET("PATH") lcNewPath = "c:\speed;" + m.lcOldPath SET PATH TO &lcNewPath. IF NOT FILE("C:\SPEED\EQ.DBC") CREATE DATABASE C:\SPEED\EQ.DBC ENDIF OPEN DATABASE EQ SET DATABASE TO EQ IF NOT INDBC("V_EQ","VIEW") CREATE VIEW V_EQ AS SELECT * FROM C:\SPEED\SPEED.DBF WHERE BETWEEN(SPD_DATE, ?m.ldLow, ?m.ldHigh) ENDIF USE EQ!v_EQ NODATA m.ldLow = {^2000-01-01} m.ldHigh = {^2273-10-16} *To prove the command window's involvement, *uncomment/comment the next 5 lines *m.llHideCommand = (WVISIBLE("COMMAND") = .F.) *m.lnWLRow = WLROW("COMMAND") *m.lnWLCol = WLCOL("COMMAND") *MOVE WINDOW COMMAND TO -100,-100 *SHOW WINDOW COMMAND DEFINE WINDOW wSetTalk FROM -100,-100 TO -10,-10 SET TALK WINDOW wSetTalk SET TALK ON SET NOTIFY ON =REQUERY() SET TALK OFF SET NOTIFY OFF SET TALK NOWINDOW RELEASE WINDOWS wSetTalk *To prove the command window's involvement, *uncomment/comment the next 5 lines *IF m.llHideCommand * HIDE WINDOW COMMAND *ENDIF *MOVE WINDOW COMMAND TO m.lnWLRow, m.lnWLCol SET PATH TO &lcOldPath.Please confirm this for me? Tell me what I've missed if anything?