Dificuldade com TBrowse

[Wilson-CPS]

Olá,
Estou fazendo uns testes para poder trabalhar com SQL via ADO e
estou tendo uma dificuldade com TBrowse. Fiz um teste usando .dbf e dá o
mesmo problema conforme segue abaixo.
Exemplo:
WITH OBJECT oBrowse == > O objeto já está criado
:OnGoTop := {|o| TITU->(dbGoTop()) }
:OnGoBottom := {|o| TITU->(dbGobottom()) }
:OnSkip := {|o,n| titu->(db2Skip(n)) }
:OnBof := {|o| TITU->(BOF()) }
:OnEof := {|o| TITU->(EOF()) }
:OnBookMark := {|o, n| iif( n == nil, titu->(RECNO()),
titu->(dbGoto(n))) }
:OnKeyNo := {|o| titu->(recno()) }
:OnKeyCount := {|o| TITU->(Reccount()) }
:Refresh( .t. )
END WITH
Da um erro em TBrowse:WMPaint(157). O que será que está errado no código
acima????
Wilson Alves

[jfgimenez]

Wilson,
> Estou fazendo uns testes para poder trabalhar com SQL via ADO e
> estou tendo uma dificuldade com TBrowse. Fiz um teste usando .dbf e dá o
> mesmo problema conforme segue abaixo.
> Exemplo:
>
> WITH OBJECT oBrowse == > O objeto já está criado
> :OnGoTop := {|o| TITU->(dbGoTop()) }
> :OnGoBottom := {|o| TITU->(dbGobottom()) }
> :OnSkip := {|o,n| titu->(db2Skip(n)) }
> :OnBof := {|o| TITU->(BOF()) }
> :OnEof := {|o| TITU->(EOF()) }
> :OnBookMark := {|o, n| iif( n == nil, titu->(RECNO()),
> titu->(dbGoto(n))) }
> :OnKeyNo := {|o| titu->(recno()) }
> :OnKeyCount := {|o| TITU->(Reccount()) }
> :Refresh( .t. )
> END WITH
>
> Da um erro em TBrowse:WMPaint(157). O que será que está errado no
> código
> acima????
El problema es esta línea:
:OnSkip := {|o,n| titu->(db2Skip(n)) }
Revisa bien la función db2Skip(), y asegúrate de que retorna el número de
registros que ha saltado.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[Wilson-CPS]

José,
Acho que não é esta linha porque até usando:
:OnSkip := {|o,n| titu->(dbSkipper(n)) } o erro continua.
Porém resolvi o problema usando TDbfBrowse ao invés de TBrowse.
Obrigado,
Wilson Alves
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:44d71305$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Wilson,
>
> > Estou fazendo uns testes para poder trabalhar com SQL via ADO e
> > estou tendo uma dificuldade com TBrowse. Fiz um teste usando .dbf e dá o
> > mesmo problema conforme segue abaixo.
> > Exemplo:
> >
> > WITH OBJECT oBrowse == > O objeto já está criado
> > :OnGoTop := {|o| TITU->(dbGoTop()) }
> > :OnGoBottom := {|o| TITU->(dbGobottom()) }
> > :OnSkip := {|o,n| titu->(db2Skip(n)) }
> > :OnBof := {|o| TITU->(BOF()) }
> > :OnEof := {|o| TITU->(EOF()) }
> > :OnBookMark := {|o, n| iif( n == nil, titu->(RECNO()),
> > titu->(dbGoto(n))) }
> > :OnKeyNo := {|o| titu->(recno()) }
> > :OnKeyCount := {|o| TITU->(Reccount()) }
> > :Refresh( .t. )
> > END WITH
> >
> > Da um erro em TBrowse:WMPaint(157). O que será que está errado no
> > código
> > acima????
>
> El problema es esta línea:
> :OnSkip := {|o,n| titu->(db2Skip(n)) }
>
> Revisa bien la función db2Skip(), y asegúrate de que retorna el número de
> registros que ha saltado.
>
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
>

[jfgimenez]

Wilson,
> Acho que não é esta linha porque até usando:
> :OnSkip := {|o,n| titu->(dbSkipper(n)) } o erro continua.
El problema es que OnSkip necesita saber cuantos registros se ha movido el
puntero, por lo tanto dbSkipper() tiene que devolver un número, no puede
devolver Nil.
--
Un saludo,
José F. Giménez
http://www.xailer.com