SELECIONAR LINHA DO MSHFLEXGRID COM DADOS DO TEXT1

CLEBERBALMEIDA 03/08/2013 15:21:36
#426982
Alguém sabe como faço para dar o foco (selecionar) toda a linha do mshflexgrid, na linha que tiver um dado que está escrito no text1.text, sabendo que o grid ta todo preenchido.

Os campos do mshflexgrid são:

Código Nome Função

então, quando eu digitar no text1.text o código do cliente, automaticamente a linha desse cliente é selecionada no mshflexgrid.

Obrigado!
MARCELO.TREZE 03/08/2013 15:35:55
#426983 Resposta escolhida
assim

Private Sub Command1_Click()
Dim Buscar As String
Dim r As Integer
    Buscar = Text1.Text
    If Len(Buscar) = 0 Then Exit Sub
    Buscar = LCase$(Buscar)
    For r = 1 To MSFlexGrid1.Rows - 1
        If LCase$(MSFlexGrid1.TextMatrix(r, 0)) = Buscar Then
            MSFlexGrid1.Row = r
            MSFlexGrid1.RowSel = r
            MSFlexGrid1.Col = 0
            MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
            MSFlexGrid1.TopRow = r
            Exit Sub
        End If
    Next r
Msgbox [Ô]O Código não existe na tabela[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar