LISTVIEW BUSCA- ERRO NOS SUBITEMS

WCOSTA 29/06/2011 20:34:06
#378066
Prezado minha dúvida parece básica, mas já verifiquei aqui no site e mesmo na Internet e não encontrei uma solução.
O problema que o código que utilizo para localizar (abaixo) atpe encontras valores nos subitems listview, o problema que valor deve ser digitado completo, acredito que mesmo utilizando a opção lvwPartial o VB não está reconhecendo. Alguem pode me ajudar
  Dim itm As ListItem
Dim intSelectedOption As Integer
Dim strFindMe As String
strFindMe = Me.txtLocal.Text
With Me.lvwLocal
    If Me.opLTitulo.Value Then
        intSelectedOption = lvwText
    Else
        intSelectedOption = lvwSubItem
    End If
        Set itm = .FindItem(strFindMe, intSelectedOption, , lvwPartial)
    If Not itm Is Nothing Then
        
        .ListItems(itm.Index).Selected = True
        .SetFocus
    Else
        MsgBox [Ô]O termo: [ô][Ô] & strFindMe & [Ô][ô] não foi localizado.[Ô], vbInformation, Titulo
        txtLocal.SetFocus
    End If
End With
Set itm = Nothing
CLEVERTON 29/06/2011 21:57:17
#378077
Porque vc não faz um for / next comparando com o operador =

?
ROBIU 30/06/2011 10:02:28
#378110 Resposta escolhida
o [txt-color=#0000f0]lvwPartial[/txt-color] só funciona para o [txt-color=#e80000]lvwText[/txt-color], ou seja, para a primeira coluna. Você pode carregar o campo que tem o texto a procurar na primeira coluna e deixae a largura = 0. Depois carrega-o novamente na ordem correta.

Ou pode seguir o exemplo anexo
Tópico encerrado , respostas não são mais permitidas
Voltar