hola
me tira este error al ejecutar la app
el codigo es este:
me tira este error al ejecutar la app
Error description: Error BASE/1132 Error de rango: acceso al array
Args:
[ 1] = A { ... }
[ 2] = N 1
Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:ADJUST(8114)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST(949)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE(857)
Called from: => __OBJSENDMSG(0)
el codigo es este:
::oQry:= ::cargarListado() // aca me traigo el SELECT de un mysql empotrado, y tiene datos, lo verifique.
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8
DEFINE DIALOG ::oDlg resource "DLGBRW"
::oBrw:= TXBROWSE():new(::oDlg)
::oBrw:setdolphin(::oQry,.T., .T., {"id"} )
WITH OBJECT ::oBrw
:bClrStd := { || If( ::oBrw:KeyNo() % 2 == 0, ;
{ CLR_BLACK, RGB( 214, 245, 203 ) }, ;
{ CLR_BLACK, RGB( 214, 255, 203 ) } ) }
:bClrRowFocus := { || { CLR_BLACK, CLR_WHITE} }
:nMarqueeStyle := 5
:nRowHeight := 23
:lRecordSelector := .F.
:nBottomMargin := 10
:lColDividerComplete := .F.
:nRowDividerStyle:= 4
:nStretchCol := STRETCHCOL_LAST
:nColDividerStyle:= 4
WITH object :aCols[1]
:odatafont:= oFont
:cHeader:= "Agente"
:nHeadStrAlign:= AL_CENTER
:oheaderfont:= oFont
END with
END WITH
::oBrw:createfromresource(101)
ACTIVATE DIALOG ::oDlg