SELECIONAR REGISTRO EM UM MSFLEXGRID

RICOCARDOZO 19/01/2005 17:03:07
#61846
Alguem pode me dar uma luz tenho um campo text e uma grade :
Como posso fazer para q a medida que eu fosse digitando no text ele selecione na grade
Valeu..
RICOCARDOZO 19/01/2005 18:03:54
#61863
Pra quem tentou me ajudar é o seguinte:
Assim tá dando certo só q eu tenho q escrever o nome completo se não ele não seleciona, e eu preciso q ele vai encontrando conforme vou digitando (tipo vai selecionando os mais próximos).

Dim i As Integer
Dim S As String
Dim X As String

S = TEMPRESA.Text

For i = 0 To Grade.Rows - 1
X = Trim(Grade.TextMatrix(i, 2))

If S = X Then
Grade.Row = i
Grade.Col = 0
Grade.ColSel = Grade.Cols - 1
Grade.TopRow = Grade.Row

Exit For

End If
Next
LCSD 19/01/2005 20:52:53
#61883 Resposta escolhida
Ricardozo

A Rotina abaixo deve ser adaptada mas deve resolver

Private Sub Command1_Click()
Dim i As Integer, sProcura As String, sGrid As String
Dim bComp As Byte

sProcura = UCase(Text2.Text)
bComp = Len(sProcura)

For i = 0 To MSHFlexGrid1.Rows - 1
  sGrid = UCase(Trim(MSHFlexGrid1.TextMatrix(i, 1)))
  If sProcura = Left$(sGrid, bComp) Then
    MSHFlexGrid1.Row = i
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
    MSHFlexGrid1.TopRow = MSHFlexGrid1.Row
    Exit For
             
  End If
Next

End Sub


Se não resolver, poste aqui novamente.
[s50]
RICOCARDOZO 20/01/2005 09:28:54
#61921
Cara caiu como uma luva valeu mesmo...
LCSD 20/01/2005 10:23:44
#61929
Rico Cardozo

Estou encerrando o Tópico então.
[s92]
Tópico encerrado , respostas não são mais permitidas
Voltar