Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Adding records to a table
Message
De
01/05/2002 16:59:16
Scott Starkey
Tindall Record Storage
Fort Worth, Texas, États-Unis
 
 
À
01/05/2002 16:47:33
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00651586
Message ID:
00651612
Vues:
26
My code goes as follows:

SELECT 5&&MAIN TABLE
USE MAIN
SET ORDER TO 1 &&BOXBAR+FILEBAR+TAPEBAR
COPY STRU TO DTERR&& TABLE OF DUPLICATE RECORDS
SELECT 7
USE DTERR
***GET NAME OF MERGE TABLE AND COPY RECORDS TO MAIN TABLE
SELECT 6&&MERGE TABLE
USE MERGE
DO WHILE .NOT. EOF(6)&&MERGE TABLE
SELECT 6&&MERGE TABLE
STORE BOXBAR+FILEBAR+TAPEBAR TO LCTARGET
SELECT 5&&MAIN TABLE
SEEK LCTARGET
IF EOF(5)&&MAIN TABLE
SELECT 6&&MERGE TABLE
COPY RECORD RECNO() TO TEMP
SELECT 5&&MAIN TABLE
APPEND FROM TEMP
SELECT 6&&MERGE TABLE
SKIP
IF EOF(6)
USE
EXIT
ENDIF
LOOP
ELSE&© DUPES TO DTERR
SELECT 6&&MERGE TABLE
COPY RECORD RECNO() TO TEMP
SELECT 7&& DTERR.DBF
APPEND FROM TEMP
SELECT 6&&MERGE TABLE
SKIP
IF EOF(6)
USE
EXIT
ENDIF
LOOP
ENDIF
ENDDO
CLOSE DATA
Scott Starkey

"You are in a postion to demand............nothing!"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform