Problemas com Grid

[Softwhouse]

De uma hora para outra comecei a ter problemas com a rotina em anexo, funcionava perfeitamente, não sei o que houve. Testei em três computadores diferentes, desativei antí-virus e nada. A Grid carrega muito lenta, cada vez que muda a coluna "pisca" por muito tempo até carregar, pesquisa letra-a-letra nem pensar... Se alguém puder testar fico muito grato.

[asimoes]

Lembra de ter instalado algum software recentemente? tem plugin de banco, gas tecnologia , ou qualquer outro?

[asimoes]

Olá fiz o teste, o problema tá na linha comentada:

Código: Selecionar todos

Static Function SortColumn(nColumnNo)
Asort( aItems, , , { | x, y | x[ nColumnNo ] < y[ nColumnNo ] })
Form_Clientes.Grid_Clientes.DisableUpdate
Form_Clientes.Grid_Clientes.DeleteAllItems
Aeval( aItems, { | x | Form_Clientes.Grid_Clientes.AddItem( x ) } )
Form_Clientes.Grid_Clientes.Value:={1,nColumnNo} // Posiciona no primeiro registro
Form_Clientes.Grid_Clientes.EnableUpdate
//Form_Clientes.Txt_Pesquisa.Value:=Space(50) // <----AQUI
Return Nil

Utilize também: Form_Clientes.Grid_Clientes.DisableUpdate e Form_Clientes.Grid_Clientes.EnableUpdate

[asimoes]

Veja se soluciona:

Código: Selecionar todos

*________________________________________________________________________________________________
Static Function SortColumn(nColumnNo)
Asort( aItems, , , { | x, y | x[ nColumnNo ] < y[ nColumnNo ] })
Form_Clientes.Grid_Clientes.DisableUpdate
Form_Clientes.Grid_Clientes.DeleteAllItems
Aeval( aItems, { | x | Form_Clientes.Grid_Clientes.AddItem( x ) } )
Form_Clientes.Grid_Clientes.Value:={1,nColumnNo} // Posiciona no primeiro registro
Form_Clientes.Txt_Pesquisa.Value:=Space(50)
Form_Clientes.Grid_Clientes.EnableUpdate
Return Nil

*________________________________________________________________________________________________
Static Function Pesquisa_Clientes()  
Local cTxt, nLen, nCol, i
Form_Clientes.Grid_Clientes.DisableUpdate
cTxt := GetProperty( 'Form_Clientes' , 'Txt_Pesquisa' , 'Value' )
nLen := Len( cTxt )
nCol:= Form_Clientes.Grid_Clientes.Value[2] // Número da coluna
Form_Clientes.Grid_Clientes.DeleteAllItems
For i := 1 To Len( aItems )
    If Upper( cTxt ) = Upper( Left( aItems [i] [nCol], nLen) )
       Form_Clientes.Grid_Clientes.AddItem ( aItems [ i ] )
    Endif
Next
Form_Clientes.Grid_Clientes.Value:={1,nCol} // Posiciona no primeiro registro
Form_Clientes.Grid_Clientes.EnableUpdate
Return ( NIL )

[Softwhouse]

Bom dia ASimões,
Desculpe a demora, final de semana não acessei o fórum. Vou testar e retorno, muito obrigado.

[Softwhouse]

Perfeito! Muito obrigado ASimões.