FiveTech Software tech 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