Yo despu茅s de mucho rabiar hago esto y funciona bastante bien.
Al borrar :
(cAlias)->(DbDelete())
(cAlias)->(DbUnLock())
(cAlias)->(DbSkip())
oLbx:SetFocus()
If !(cAlias)->(Eof())
oLbx:Refresh()
Else
oLbx:GoUp()
oLbx:Refresh()
Endif
Tambi茅n puedes probar con :
oLbx:SetFocus()
oLbx:UpStable()
oLbx:Refresh()
O con :
Function RefrescaBrowse (oLbx)
/* ====================================================================================================
Hace un refresco correcto del browse que se le pasa.
Adaptado al tsbrowse 7.1
Par谩metros:
oLbx . Listbox a procesar
Devuelve (nil)
Fecha creaci贸n:06/12/2005 19:44
Creado por:Angel
脷ltima revisi贸n:06/12/2005 19:45
Revisado por:Angel
====================================================================================================
*/
oLbx:SetFocus()
oLbx:ResetBarPos()
oLbx:UpStable()
oLbx:Reset()
oLbx:Refresh()
Return (nil)
De todas formas, el tsbrowse 7.1 se vuelve turuleto con los registros borrados, siempre y cuando la parte "visible" del browse no est茅 lleno de registros. Si tienes m谩s registros de los que se ven en pantalla no tendr谩s problemas.
Mientras tanto tienes que hacer algunos trucos "sucios" para que se muestre medianamente decente.
No te olvides de comprobar Ctrl+AvPag y Ctrl+RePag que tambi茅n funcionan "raro" cuando hay registros borrados.
Un saludo.