USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Localizando Dados em Um flexGrid
Ricardo
não registrado
ENUNCIADA !
Postada em 19/11/2004 11:00 hs   
Alguém tem um exemplo de fazer busca em um flex.
Tipo assim tenho um text e um flex a medidada que vou digitando os dados no text ele vai buscando e selecionando no flexgrid.
   
Rubinho
COLATINA
ES - BRASIL
ENUNCIADA !
Postada em 19/11/2004 11:12 hs            
Este código usa o evento KeyPress do FlexGrid e pega o código ascii da letra pressionada pelo usuário para colocar a primeira linha com esta determinada letra no TopRow; por exemplo; em um grid com muitos registros (e ordenado alfabéticamente) ao se pressionar a tecla "F" (por exemplo) automaticamente o foco é lançado no primeiro registro com a tecla F . . . confira !

===============================================

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
      
   If Trim(MSFlexGrid1.TextMatrix(1, 1)) <> "" Then
      If (KeyAscii > 65 And KeyAscii < 90) _
      Or (KeyAscii > 97 And KeyAscii < 122) Then
         Dim I As Integer
         Dim S As String
         Dim X As String
        
         S = Chr(KeyAscii)
         S = UCase(S)
        
         For I = 1 To MSFlexGrid1.Rows - 1
            X = Trim(MSFlexGrid1.TextMatrix(I, 1))
            X = Left(X, 1)
            X = UCase(X)
            
            If S = X Then
               MSFlexGrid1.TopRow = I
               Exit For
            End If
         Next
      End If
   End If
End Sub
 
Este exemplo foi postado pelo Colega Rodrigo Braga na seção de dicas aqui no Forum
Espero ter ajudado...
   
Ricardo
não registrado
ENUNCIADA !
Postada em 19/11/2004 11:22 hs   
Valeu cara só que eu já testei este código e não consegui fazer com q ele rode pois ele localiza direto do flex ou seje dugitando no flex e o meu precisa ser de um text .
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página