>I have some processing of records to do & I'm thinking like a DOS programmer. Please help me think like a VFP programmer.
>
>I have a table on a floppy disk named people. I have a table in my project called people (which I've given an alias of peo). I want to read through the table on drive a, check to see if it's in people & replace certain fields if it is or add the record it it's not.
>
>In DOS, I said
>select 1
>use a:people
>sele 2
>use people alias peo
>set order to dnumber
>sele 1
>do while not eof()
> sele 2
> seek people.dnumber
> if found()
> replace ...
> else
> appe blank
> replace ...
> endif
> select 1
> skip
>enddo
>
>How do I do this in VFP?
>
>Many, many thanks for your help.
That code should still work...
A couple of minor changes will reduce the amoutn of code...
USE PEOPLE ORDER Dnumber ALIAS PEO
SELECT 0
USE A:\PEOPLE
SCAN
IF SEEK(DNumber, 'Peo')
REPLACE .... IN Peo
ELSE
INSERT INTO Peo (field...) VALUES (values...)
ENDIF
ENDSCAN && Peo
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement