Página 2 de 2
Re: Exclusão de Registros em TBrowse()
Enviado: 01 Jun 2008 09:57
por alaminojunior
Ei-la,
Código: Selecionar todos
Function Destaca(_Tb) // Recebe como parâmetro, o objeto tbrowse que se deseja manipular.
Local Place:= Recno()
If Eof()
return
Endif
_Tb:RefreshAll()
Do While !_Tb:Stabilize()
Enddo
Do While Recno() != Place // Enquanto recno() não for o registro desejado, vai tentando....
_Tb:Up() // Setinha pra cima :D
Do While !_Tb:stabilize()
Enddo
Enddo
Return
Enfim, depois do comando loop, quando o tbrowse estabilizar, chame esta função para assegurar que a barra de destaque esteja sobre o registro desejado.
Re: Exclusão de Registros em TBrowse()
Enviado: 02 Jun 2008 21:39
por lucimauro
Com a sua funcao funcionando voce ja tentou apagar o primeiro registro de sua lista para ver se ele realmente some da relacao.?
Re: Exclusão de Registros em TBrowse()
Enviado: 02 Jun 2008 21:55
por sygecom
lucimauro escreveu:Com a sua funcao funcionando voce ja tentou apagar o primeiro registro de sua lista para ver se ele realmente some da relacao.?
Lucimauro,
O exemplo que postei é só compilar que funciona, se for o exemplo do colega acima só incluir o SET DELETED ON que tmb. funciona.
Re: Exclusão de Registros em TBrowse()
Enviado: 04 Jun 2008 17:42
por aferra
Desculpe entrar assim no assunto
, sou novo por aqui e a intenção é somente de ajudar,
acho que somente essas linhas já resolveria o problema:
Select <alias>
b:RefreshCurrent()
b:Configure()
Abraços