TDOLPHIN atribuir valor a objeto
Posted: Sat Dec 22, 2018 2: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
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