Busca em listview


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Busca em listview

Ronaldo
não registrado

Postada em 24/06/2008 23:10 hs

Galera eu to fazendo esta busca:
Private Sub Txt_Busca_Change()
Set Tb = banco.OpenRecordset("contas_recebidas", dbOpenDynaset)
If Tb.RecordCount <> 0 Then

List1.ListItems.Clear
Tb.MoveMin
Tb.FindNext "Paciente like'" & Txt_Busca.Text & "*'"
Do While Tb.NoMatch = False
   Set Lista = List1.ListItems.Add(, , Tb("Num_Lab"))
   Lista.SubItems(1) = Tb("Num_Reg")
   Lista.SubItems(2) = Tb("cliente")
      Lista.SubItems(3) = Tb("paciente")
Tb.FindNext "Paciente like'" & Txt_Busca.Text & "*'"
Loop
End If
End Sub
Mas só me aparece o 2 cadastro da RS...sei que é no findnext....
mas como faço pra fazer esta busca certinha?

valew...

Perci

MATÃO
SP - BRASIL

Postada em 25/06/2008 07:59 hs

Essa linha antes do Loop

Tb.FindNext "Paciente like'" & Txt_Busca.Text & "*'"

não deveria ser:

Tb.MoveNext ??

Qualquer coisa, posta novamente.

Até mais.

Treze

SÃO VICENTE
SP - BRASIL

Postada em 25/06/2008 09:48 hs

Desculpe pessoal o problema é o site, a função correta é

Tb.findFirs_t

apenas retire o underline, pois se escrever a palavra correta éla é alterada para findnext

veja o código correto

List1.ListItems.Clear
' Tb.MoveMin --> não há necessidade deste comando, a linha abaixo já faz esta função.
Tb.FindFirs_t "Paciente like'" & Txt_Busca.Text & "*'"
Do While Tb.NoMatch = False
   Set Lista = List1.ListItems.Add(, , Tb("Num_Lab"))
   Lista.SubItems(1) = Tb("Num_Reg")
   Lista.SubItems(2) = Tb("cliente")
      Lista.SubItems(3) = Tb("paciente")
Tb.FindNext "Paciente like'" & Txt_Busca.Text & "*'"
Loop
End If

a linha em negrito é o unico com problema escreva do modo que está agora, retirando o underline e faça o teste.

TÓPICO EDITADO

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR