::oQuery:=TMSQuery():new(::oConexion, "SELECT * FROM USUARIOS" )
::oQuery:Open()
DEFINE DIALOG ::oDlg resource "DLGUSUARIOS"
REDEFINE image oImagen File "..\Resource\barraus.png" ID 504 OF ::oDlg
REDEFINE SAY oDatos[1] ID 500 OF ::oDlg
REDEFINE SAY oDatos[2] ID 501 OF ::oDlg
REDEFINE SAY oDatos[3] ID 502 OF ::oDlg
REDEFINE SAY oDatos[4] ID 503 OF ::oDlg
REDEFINE GET vDatos[1] ID 200 OF ::oDlg
REDEFINE GET vDatos[2] ID 201 OF ::oDlg
REDEFINE GET vDatos[3] ID 202 OF ::oDlg
REDEFINE BUTTON oBtns[1] ID 204 OF ::oDlg
REDEFINE BUTTON oBtns[2] ID 205 OF ::oDlg
WITH OBJECT ::oBrw:= TGXBROWSE():new(::oDlg)
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle:= LINESTYLE_BLACK
:nRowDividerStyle:= LINESTYLE_LIGHTGRAY
:nRowHeight:= 40
:lRecordSelector := .T.
:setquery(::oQuery)
:CreateFromResource(203)
END WITH
//----------( acciones )----------
oBtns[1]:baction:={|| MsgStop("aaa")}
oBtns[2]:baction:={|| ::oDlg:END()}
ACTIVATE DIALOG ::oDlg CENTERED
::oQuery:free()
y el setquery es
METHOD SetQuery(oQuery, lAddCols, lAutoOrder, aFldNames)
LOCAL nFields, nItem, oCol
::oQuery:= oQuery
//----------( Armo los movimientos )----------
DEFAULT ::bGotop TO {|| IF(::oQuery:RecCount() > 0, ::oQuery:GoTop(),NIL)}
DEFAULT ::bGoBottom TO { || IF(::oQuery:RecCount() >0, ::oQuery:GoBottom(), NIL)}
DEFAULT ::bSkip TO {|n| ::oQuery:skip(n)}
DEFAULT ::bBof TO {|| ::oQuery:bBof()}
DEFAULT ::bEof TO {|| ::oquery:bEoF()}
DEFAULT ::bBookMark TO {|n| IF(n==NIL,;
IF(::oQuery:RecCount()>0, ::oQuery:RecNo(),0),;
IF(::oQuery:RecCount()>0, ::oQuery:goto(n),0))}
DEFAULT ::bKeyNo TO {|n| IF(n==NIL,;
IF(::oQuery:RecCount()>0, ::oQuery:RecNo(),0),;
IF(::oQuery:RecCount()>0, ::oQuery:goto(n),0))}
DEFAULT ::bKeyCount TO {|| ::oQuery:RecCount()}
//----------( Creo las columnas )----------
RETURN (Self)
joseluisysturiz wrote:Creo ese error es algo sobbre tamaño del arreglo, pon algo de codigo para poder darte mejor ayuda...saludos... 