Tengo el siguiente codigo para mostrar elementos en XBROWSER.
- Code: Select all Expand view RUN
//----------------------------------------------------------------------------//
FUNCTION LisAyuda( oConexion, cSentencia )
//----------------------------------------------------------------------------//
Local oDato
Local cDevuelvo
oDato := Usar( oConexion, cSentencia )
* xBrowse( oDato )
XBROWSER oDato TITLE "RELACION" ;
SETUP XbrNoBar( oBrw )
msgstop( cDevuelvo)
return NIL
function XbrNoBar( oBrw )
*************************
oBrw:oWnd:bInit := < |oDlg|
WITH OBJECT oDlg
:oBar:Hide()
oBrw:nTop -= :oBar:nHeight
oBrw:nHeight += :oBar:nHeight
END
return nil
>
oBrw:bLDblClick := { || msginfo(oBrw:aCols[1]:value) }
return nil
Pero quisiera asignar el valor de la primera columna seleccionada a una variable y cerrar el XBROWSER.
Podrian indicarme como se hace?
Saludos
Juan Jose