FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TDOLPHIN atribuir valor a objeto
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
TDOLPHIN atribuir valor a objeto
Posted: Sat Dec 22, 2018 02:53 PM

Como posso atribuir um valor a objeto da tdolphin?

estou fazendo assim, mais nao funciona:

nLenImportar := oProdutoImportar:Fcount()
nLenRow := oRow:Fcount()

for x := 1 to nLenImportar
for y := 1 to nLenRow
if Alltrim(oProdutoImportar : FieldName( x )) == Alltrim(oRow : FieldName( y ))
cVar := Alltrim(oRow : FieldName( y ))
? oRow : FieldGet( y ) //valor antes
oRow : &(cVar) := oProdutoImportar : FieldGet( x )
? oRow : FieldGet( y ) //valor depois
exit
endif
next
next

O código acima nao funciona :shock:

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: TDOLPHIN atribuir valor a objeto
Posted: Sat Dec 22, 2018 04:55 PM
Prueba
Code (fw): Select all Collapse
oRow := oProdutoImportar:GetRowObj()

Luego puedes asignarle a la query si lo quieres grabar
Code (fw): Select all Collapse
oProdutoImportar:oRow := oRow
oProdutoImportar:Save()
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TDOLPHIN atribuir valor a objeto
Posted: Thu Dec 27, 2018 10:21 AM

obrigado Cesar Gomez

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Continue the discussion