duplicate record (tdatarow)

[Silvio.Falconi]

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 ?

[nageswaragunupudi]

Code: Select all  Expand view

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

[Silvio.Falconi]

thanks

[Silvio.Falconi]

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: Select all  Expand view

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