ListBox duplicando

[gbetorodrigues]

Quando exibo um LISTBOX com um set filter ele está duplicando o registro. Ex. Caso o resultado de um set filter seja apenas 1 registro ele coloca 3 linhas repetidas. Por que sera:

Código: Selecionar todos

---------------------------------------------

FUNCTION MostFilt()

TIPOIMOV->(dbSetOrder(3)) // descricao 
TIPOIMOV->(dbSeek(optpimovel))

aliaslaudo := TIPOIMOV->BASE

SET FILTER TO // LIMPANDO O FILTRO CORRENTE 

otela1:update()
oLbx9:hide()

SELECT (aliaslaudo) // SELECIONANDO A AREA (BASE) 

(aliaslaudo)->(dbGotop())


IF EMPTY(xcodLaudo)
SET FILTER TO (aliaslaudo)->BAIRRO == opBairro
ELSE 
SET FILTER TO ALLTRIM( (aliaslaudo)->LAUDO ) == ALLTRIM(xcodLaudo) 
ENDIF 

(aliaslaudo)->(dbGoTop())

//oLbx9:UpsTable()
oLbx9:refresh()
oLbx9:Gotop()


otela1:update()
otela1:refresh()

oLbx9:SetFocus()

oLbx9:show()

RETURN .T.

----------------------------------------------------

Obrigado a TODOS que leram e FELIZ 2011 !!!

[rochinha]

Amiguinho,

De mais uns dois comandinhos para o objeto ListBox:

objetoListbox:UpStable()
objetoListbox:Refresh()

Em minha aplicação como eu realizo filtragens de vários ListBoxes ao mesmo tempo, eu uso algumas funçõeszinhas para o auxilio.

O fato do SetFilter ser lento no meu caso eu optei por usar indices CDX e seus métodos de filtragem via Scope().

Se voce usa com NTX deverá passar a usar este RDD para melhorar a performace de seu aplicativo. SetFilter te fará sofrer.

Exemplo:

Código: Selecionar todos

           dbSelectArea( "PENDENTE" )
           OrdSetFocus( 1 )
           QuickScope( str(M->IDCLIENTE,5,0) )
           dbSetfilter( nil, nil ); dbSetFilter( {|| PENDENTE->TIPO='C'}, "PENDENTE->TIPO='C'" )
           QuickRefresh( oLbxP4C )

Funções:

Código: Selecionar todos

FUNCTION QuickScope(cLimInf,cLimSup)
  DEFAULT cLimInf := NIL
  DEFAULT cLimSup := cLimInf
  OrdScope(0,cLimInf)
  OrdScope(1,cLimSup)
  dbGotop()
  return .t.

FUNCTION QuickRefresh( oBject )
  oBject:UpStable()
  oBject:Refresh()
  dbGotop()
  return .t.

As funções são apenas para economizar na programação e deixar seu código mais legivel.

[gbetorodrigues]

Caro, Rochinha, já havia utilizado o upstable e mesmo assim nao funcionou. Quanto ao set filter, o listbox deverá apresentar, somente o que foi escolhido pelo usuário, para não confundi-los, o sistema também está dotado dos indices CDX. É utilizado um SET DELE ON antes fazer o filtro