CLEAR SET SAFETY OFF * BUILD A 200000 Numbers with duplex * into a TEXT FILE for APPEND it After CREATE CURSOR t2 (f2 I DEFAULT RECNO()) FOR K=1 TO 200000 INSERT INTO t2 VALUES (100*RAND()) NEXT COPY TO TEXTLIST.TXT SDF ? 'items',_TALLY USE * INSERT DISTINCT FROM TEXTFILE INTO A EMPTY CURSOR CREATE CURSOR t1 (f1 I ) INDEX ON f1 CANDIDATE TAG TAG1 SET ORDER TO USE DBF() AGAIN IN 10000 APPEND FROM TEXTLIST.TXT SDF FOR !KEYMATCH(f1,1,10000) ? 'Append 1',_TALLY APPEND FROM TEXTLIST.TXT SDF FOR !KEYMATCH(f1,1,10000) ? 'Append 2',_TALLY USE IN 10000 ERASE TEXTLIST.TXT SET ORDER TO 1 BROWSEBecause INDEXSEEK donnot fire the trigger, you can implement APPEND
CLEAR SET SAFETY OFF * BUILD A 200000 Numbers with duplex * into a TEXT FILE for APPEND it After CREATE CURSOR t2 (f2 I DEFAULT RECNO()) FOR K=1 TO 200000 INSERT INTO t2 VALUES (100*RAND()) NEXT COPY TO TEXTLIST.TXT SDF ? 'items',_TALLY USE * INSERT DISTINCT FROM TEXTFILE INTO A EMPTY CURSOR CREATE CURSOR t1 (f1 I ) INDEX ON f1 CANDIDATE TAG TAG1 APPEND FROM TEXTLIST.TXT SDF FOR !INDEXSEEK(f1,.F.) ? 'Append 1',_TALLY APPEND FROM TEXTLIST.TXT SDF FOR !INDEXSEEK(f1,.F.) ? 'Append 2',_TALLY ERASE TEXTLIST.TXT BROWSEFabio