Problemas com o ListView

[AndersonDutra 4]

Quando eu digito uma letra na caixa de texto (por exemplo "A") aparece todas com aquela letra na ListView, quando digito mais uma (por exemplo "AM") aparece normal mais cria mais uma coluna na ListView, e cada vez que eu digito vai aparecendo mais colunas.Qual é o problema? :o

[Luizgrs 0]

Deve ter algo errado no código ñ?

[AndersonDutra 4]

O código usado vou colocar abaixo

 

Private Sub preenche_lista()On Error Resume Nextestoque.CloseOn erro GoTo trataerroestoque.Open "SELECT * FROM Estoque WHERE Material LIKE '" & Text1.Text & "%' ORDER BY Material", Conexaolistview_cabecalho'cada item precisa de um subitem para exibir na listaLista.SubItems(1) = "" & estoque!UnidadeLista.SubItems(2) = "" & estoque!Quan_usadalstMostra.ListItems.ClearDo While Not estoque.EOFSet Lista = lstMostra.ListItems.Add(, , estoque!Material)   Lista.SubItems(1) = estoque!Item   Lista.SubItems(2) = estoque!Quantidade  estoque.MoveNextLoopExit Subtrataerro:   MsgBox Err.Description, vbCritical, "Erro no sistema"End SubPrivate Sub listview_cabecalho()  lstMostra.ColumnHeaders. _    Add , , "item", lstMostra.Width / 4  lstMostra.ColumnHeaders. _    Add , , "Material", lstMostra.Width / 4  lstMostra.ColumnHeaders. _    Add , , "Quan_usada", lstMostra.Width / 4  lstMostra.ColumnHeaders. _    Add , , "Unidade", lstMostra.Width / 4  'lstMostra.ColumnHeaders. _    'Add , , "Quan_usada", lstMostra.Width / 4  'Define a forma de exibição do controle listview para relatorio  lstMostra.View = lvwReportEnd Sub

Private Sub Text1_Change()preenche_listaEnd Sub Private Sub Command1_Click() preenche_listaEnd Sub

[Luizgrs 0]

Se toda hora aparece uma coluna nova então o problema deve estar quando você arruma os columnheaders, tipo tenta arrumar ele em design time mesmo, usa a "propriedade" custom lá do listview.