Tengo un xBrowse con un Array de 100 posiciones inicializado con SPACE(20) las 100 posiciones tienen SPACE(20)
El problema es que cuando cargo el array con valores de una tabla DBF el xBrowse se llena completo con el valor del primer registro de la DBF. Solo el primer registro. Es decir en las 100 posiciones repite primer registro de la DBF y los demas registros de la DBF (Son 30 registros) no los muestra.
Supongo que es un problema con el bSkip.
El bSkip lo hago de la siguiente manera:
- Code: Select all Expand view
oLbx1:bGoTop :={||nItem1:=1 }
oLbx1:bGoBottom:={||nItem1:=Len(VecImp)}
oLbx1:bBookMark:={|nBkm| If( nBkm == nil, nItem1, nItem1:= nBkm ) }
oLbx1:bSkip :={|nSkip| Skipper2(VecImp,@nItem1,nSkip ) }
Y mi función Skipper es la siguiente:
- Code: Select all Expand view
Function Skipper2(Vector,nCur,nSkip)
Local nOld:=nCur
Default nSkip:= 1
nCur :=nCur + nSkip
IF nCur > LEN(Vector)
nCur:= LEN(Vector)
ENDIF
IF nCur < 1
nCur:= 1
ENDIF
Return nCur - nOld
//
Alguien tiene una idea de cual es la solución a este problema??
Desde ya muchas gracias. Y felíz año para todos.