xbrowse and eof

[damianodec]

Hi,
I have this code that read Xbrowse object

Code: Select all | Expand

function TrovanumeroLotto( oBrw, nLotto )
   local lFound := .F.
   local lEof := .f.

   oBrw:GoTop()

   do while !lEof

  if oBrw:aCols[3]:Value() == nLotto   
     lFound := .T.
	 lEof = .t.
  endif

  oBrw:Skip()
  if oBrw:Eof()
	lEof = .t.
  endif

   enddo
   

return lFound

but when oBrw goes over last row the Obr:Eof() is always false.
Why?

Thanks

[cnavarro]

Last row = LastRec() ( natural order )
if you press VK_DOWN --Eof() ---> true

[Willi Quintana]

Prueba asi:

Code: Select all | Expand

function TrovanumeroLotto( oBrw, nLotto )
 local lFound := .F.
 oBrw:GoTop()
 do while !oBrw:Eof()
     if oBrw:aCols[3]:Value() == nLotto   

         lFound := .T.
     endif
    oBrw:Skip()
 enddo
return lFound