Page 1 of 1
duplicate record (tdatarow)
Posted: Wed Jun 02, 2021 8:39 am
by 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 ?
Re: duplicate record (tdatarow)
Posted: Thu Jun 03, 2021 3:13 am
by nageswaragunupudi
Code: Select all | Expand
oRec := oDbf:Record() // existing record
oRec:Copy()
oRec := oDbf:Record( .t. ) // new record to append
oRec:Paste()
oRec:Edit()
Re: duplicate record (tdatarow)
Posted: Thu Jun 03, 2021 9:01 am
by Silvio.Falconi
thanks
Re: duplicate record (tdatarow)
Posted: Sun Jun 06, 2021 7:57 pm
by 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
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