ROTINA DE BUSCA
Olá! estou tentando adaptar uma rotina d busca num controle list para funcionar com o datalist. A rotina eh a seguinte, com o q jah fiz ateh aki:
Private Sub Text5_Change()
Dim C As Long
C = 0
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.MoveNext
C = C + 1
Wend
Dim I As Integer
Search$ = UCase$(Text5.Text)
Searchlen = Len(Search$)
If Searchlen Then
For I = 0 To C
If UCase$(Left$(DataList1.List(I), Searchlen)) = Search$ Then
DataList1.SelectedItem = I
Exit For
End If
Next
End If
End Sub
Ela serve pra, ao digitar por exemplo a letra "b" no text, o cursor se posiciona na primeira ocorrencia da letra b no datalist. Atenção para essa linha:
If UCase$(Left$(DataList1.List(I), Searchlen)) = Search$ Then
A propriedade list era do controle list, naum há equivalente no datalist? Q funções saum essas dessa linha? naum entendi nenhuma =/ Podem me ajudar? Vlw!
Private Sub Text5_Change()
Dim C As Long
C = 0
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.MoveNext
C = C + 1
Wend
Dim I As Integer
Search$ = UCase$(Text5.Text)
Searchlen = Len(Search$)
If Searchlen Then
For I = 0 To C
If UCase$(Left$(DataList1.List(I), Searchlen)) = Search$ Then
DataList1.SelectedItem = I
Exit For
End If
Next
End If
End Sub
Ela serve pra, ao digitar por exemplo a letra "b" no text, o cursor se posiciona na primeira ocorrencia da letra b no datalist. Atenção para essa linha:
If UCase$(Left$(DataList1.List(I), Searchlen)) = Search$ Then
A propriedade list era do controle list, naum há equivalente no datalist? Q funções saum essas dessa linha? naum entendi nenhuma =/ Podem me ajudar? Vlw!
Ghost-Writer
Não sei se entendi direito, mas em todo caso ...
Trabalho com o objeto List e não tenho nenhuma dificuldade em listar da forma como você postou, sem nenhuma das linhas do código acima.
O próprio objeto List faz este servicinho. Ao digitar "b" ou "B", ele vai selecionando no vÃdeo as ocorrências que iniciem com a letra referenciada.
Faça um teste sem estas linhas de código.
Boa sorte e t+
Não sei se entendi direito, mas em todo caso ...
Trabalho com o objeto List e não tenho nenhuma dificuldade em listar da forma como você postou, sem nenhuma das linhas do código acima.
O próprio objeto List faz este servicinho. Ao digitar "b" ou "B", ele vai selecionando no vÃdeo as ocorrências que iniciem com a letra referenciada.
Faça um teste sem estas linhas de código.
Boa sorte e t+
Tópico encerrado , respostas não são mais permitidas