FiveTech Support Forums

Estimado Colegas

Necesito extraer un dato de array = a un campo de una dbf y pasarselo a
un action de un boton si alguien me puede echar una mano

desde ya muchisimas gracias
Dante

devwin2004@yahoo.com.ar

EJ
TestData[nI,4] = desig->nmes

adjunto codigo fuente

use desig
TestData := Array( lastrec(), 4 )

FOR nI := 1 TO Len(TestData)
 TestData[nI,1] = val(desig->dntop)
 TestData[nI,2] = val(desig->dnleft)               //CANT
 TestData[nI,3] = desig->dbmp
 TestData[nI,4] = desig->nmes

@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME

"MESA8C.bmp" PROMPT TestData[nI,3] size 64,64 OF oDlg pixel TEXT

ON_BOTTOM NO BOX Action (TestData[nI,3])

IF .NOT.EOF()
   SKIP
 ENDIF

NEXT

return nil

devwin2004 wrote:

FOR nI := 1 TO Len(TestData)
TestData[nI,1] = val(desig->dntop)
TestData[nI,2] = val(desig->dnleft) //CANT
TestData[nI,3] = desig->dbmp
TestData[nI,4] = desig->nmes



@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME

"MESA8C.bmp" PROMPT TestData[nI,3] size 64,64 OF oDlg pixel TEXT

ON_BOTTOM NO BOX Action (TestData[nI,3])


IF .NOT.EOF()
SKIP
ENDIF
NEXT


return nil

Lo haría de la siguiente manera.

bValor := { || (TestData[nI,3]) }

@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME

"MESA8C.bmp" PROMPT TestData[nI,3] size 64,64 OF oDlg pixel TEXT

ON_BOTTOM NO BOX Action EVAL(bValor)


Espero funcione