Actualizar los datos del un virtual GRID

[mjaviergutierrez]

hola, como actualizo los datos de un virtual grid ?

[AUGE_OHR]

hi,

hola, como actualizo los datos de un virtual grid ?

after update Array call this

Code: Select all

PROCEDURE RefreshCurrent( cForm, cBrowse )
LOCAL hBrowse := GetControlHandle( cBrowse, cForm )
LOCAL nRecord := GetProperty( cForm, cBrowse, "VALUE" )
   ListView_RedrawItems( hBrowse, nRecord, nRecord )
RETURN

[mjaviergutierrez]

Gracias amigo AUGE_OHR, saludos.

[SALINETAS24]

Y ya que estamos...,
¿en que se diferencia un GRID NORMAL cargado con un array, imaginemos de 1000 elementos y de un GRID VIRTUAL, que también carga un array de 1000 elementos?
Quedo agradecido de antemano por la aclaración....

[AUGE_OHR]

hi,

normal you have to load each Element using AddItem() ... this can take some Time

when already have a Array e.g. Directory() you need this

Code: Select all

   aDir := Directory()
   ...
   ITEMCOUNT LEN( aDir )
   VIRTUAL .T.
   ON QUERYDATA OnDataRequestStruct( aDir )

you do not have to use AddItem while Data are read "on-fly" when QUERYDATA Event ( LVN_GETDISPINFO ) is fired

Code: Select all

FUNCTION OnDataRequestStruct( aData )
LOCAL xVal
LOCAL nRow := This.QueryRowIndex
LOCAL nCol := This.Querycolindex
   IF .NOT. EMPTY( nRow ) .AND. nRow <= LEN( aData )
      xVal := aData[ nRow ] [ nCol ]
      This.QueryData := xVal
   ENDIF
RETURN .T.

FUNCTION OnData is like "DbSkipper" in TBrowse but much faster to display Data in GRID.