Obtener nombre de los Campos a partir de un Array(SOLUCIONAD

Board index FiveWin para Harbour/xHarbour Obtener nombre de los Campos a partir de un Array(SOLUCIONAD

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Obtener nombre de los Campos a partir de un Array(SOLUCIONAD
Posted: Sat Apr 24, 2021 02:45 AM

Saludos

Estoy llenado un Browse con un Array de la forma siguiente

    oBrw := TXBrowse():New( oWnd )

    oBrw:SetArray( aData, .T. )

    oBrw:CreateFromCode()

Luego paso los registros a una Funcion para Editar asi,

Code (fw): Select all Collapse

ACTION Modificar( aData[oBrw:nArrayAt,1], oBrw )

Y estoy obteniendo los campos de esta manera

Code (fw): Select all Collapse

        @ 01, 02 SAY "First"        OF oDlg
        @ 02, 1.5 GET oBrw:aRow[1]   PICTURE "@K" UPDATE OF oDlg

        @ 01, 26.6 SAY "Last"       OF oDlg
        @ 02, 20 GET oBrw:aRow[2]    PICTURE "@K" UPDATE OF oDlg

Pero necesito obtenerlos asi

Code (fw): Select all Collapse

       @ 01, 02 SAY "First"        OF oDlg
        @ 02, 1.5 GET oCursor:First   PICTURE "@K" UPDATE OF oDlg

        @ 01, 26.6 SAY "Last"       OF oDlg
        @ 02, 20 GET oCursor:Last    PICTURE "@K" UPDATE OF oDlg

oCursor es el nombre de mi Array

Hay alguna forma de hacer esto?

Gracias de antemano

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Obtener nombre de los Campos a partir de un Array
Posted: Sun Apr 25, 2021 06:18 PM

Prueba con :

Code (fw): Select all Collapse

       @ 01, 02 SAY "First"        OF oDlg
        @ 02, 1.5 GET oCursor:First:Value  PICTURE "@K" UPDATE OF oDlg

        @ 01, 26.6 SAY "Last"       OF oDlg
        @ 02, 20 GET oCursor:Last:Value   PICTURE "@K" UPDATE OF oDlg

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Obtener nombre de los Campos a partir de un Array
Posted: Sun Apr 25, 2021 06:23 PM

Saludos Angel

Me arroja este error

Error BASE/1004 No exported method: VALUE

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

FiveTech Support Forums

Continue the discussion