topic-40478

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

duplicate record (tdatarow)
Posted: Wed Jun 02, 2021 08:39 AM

on tdatabase to inser ta a record I use

oElemento:=oElementi:record(.t.)

and to modify

oElemento:=oElementi:record()

How I can make to have a duplicate record to modify ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: duplicate record (tdatarow)
Posted: Thu Jun 03, 2021 03:13 AM

Code (fw): Select all Collapse

oRec  := oDbf:Record()  // existing record
oRec:Copy()
oRec  := oDbf:Record( .t. ) // new record to append
oRec:Paste()
oRec:Edit()

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: duplicate record (tdatarow)
Posted: Thu Jun 03, 2021 09:01 AM

thanks

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: duplicate record (tdatarow)
Posted: Sun Jun 06, 2021 07:57 PM

Nages, do you think it is right ?

oElementi:= TDatabase():Open( , cDir+"Elementi", "DBFCDX", .T. )
oElementi:setorder(1)
oElementi:gotop()

//sample for duplicate
oElemento:=Editsetup(oElementi,3,oElemento)

Code (fw): Select all Collapse

Function Editsetup(oDbf,nMode,oRec)
    IF nMode==1  //add
     oRec  := oDbf:record(.t.)
    Elseif nMode == 2  //mod
     oRec  := oDbf:record()
    elseif nMode:= 3  //duplicate
        oRec  := oDbf:Record()  // existing record
        oRec:Copy()
        oRec  := oDbf:Record( .t. ) // new record to append
        oRec:Paste()
        //oRec:Edit()
   Endif
return oRec

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion