VFP 6 Duplicating a record 2

[eric43]

I have a need to take all the fields in a in a record and make a duplicate record with the only difference being a ref number in one of the fields.

Is there a way to do this without copying all field values into an array or variable. I have a number of tables that I need to do this with.

Can I use a len type statement to control a FOR - NEXT loop running through all the fields?

Thanks

Eric

 

[foxdbs]

I think SCATTER NAME can be usefull command.

LOCAL loRecord
SELECT Alias
SCATTER NAME loRecord
loRecord.FieldName1 = NewValueForFieldName1
INSERT INTO Alias FROM NAME loRecord

If INSERT INTO FROM NAME isn't supported in your/older version of VFP, you can use APPEND BLANK + GATHER NAME loRecord.
Or you can use a SCATTER/GATHER/INSERT syntax version with array instead of object.

 

[alvechurchdata]

INSERT INTO FROM NAME gives me a syntax error in VFP 6 but your alternative;

APPEND BLANK
GATHER NAME loRecord

ran fine.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[eric43]

Interestingly ( and frustratingly) this code does not 'copy' a memo field at all.

I guess these have to be copied individually after all - however the above code has saved a lot of work so far!

Thanks guys

Eric

 

[Mike Gagnon]

Eric

Just add the MEMO clause to the GATHER command.



Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.
ReFox XI (www.mcrgsoftware.com)

 

[KarenLloyd]

You can use

SCATTER TO mycopy MEMO
then
APPEND BLANK
GATHER FROM mycopy MEMO
then REPLACE ... fields you want to change

OR

SCATTER TO mycopy field1, field2... MEMO
APPEND BLANK
GATHER FROM mycopy field1, field2... MEMO

Kaz

 

[KarenLloyd]

SORRY.. forgot to include "FIELDS" - You can use

SCATTER TO mycopy MEMO
then
APPEND BLANK
GATHER FROM mycopy MEMO
then REPLACE ... fields you want to change

OR

SCATTER TO mycopy FIELDS field1, field2... MEMO
APPEND BLANK
GATHER FROM mycopy FIELDS field1, field2... MEMO

Kaz

 

[Olaf Doschke]

If you want to do it in a browse window, take a shot at SET CARRY ON: If that is on CTRL+Y (or CTRL+T) will add a new record and carries the content of the last record over to the new one. Now You'd only need to modify that one field.

Bye, Olaf.

 

[eric43]

Thanks everybody - very helpful

Eric