listview duplicando colunas!

2024 - VBA & Macros

Post Recente por Rilton 12 anos atrás

3 Posts

2 Usuários

0 Reactions

1,019 Visualizações

RSS

Rilton

(@rilton)

Posts: 232

Estimable Member

Topic starter

Olha eu mais uma vez aqui com um problema,
Possuo no meu formulário de pesquisa uma listview que carrega os dados de acordo com os critérios estabecidos, porém quando eu clico no botão filtrar, o meu listview duplica as colunas, e se eu, novamente clicar em filtrar, ele duplica ainda mais as colunas e assim sucessivamente. A reposta para esse problema pode ser até simples, mas para uma pessoa noob como eu, a mesma foge dos meus conhecimento. Conto com a colaboração de quem entende do assunto.
Segue em anexo a planilha.
Obrigado.

Postado : 27/09/2012 8:55 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Acrescente no inicio da sub populalist.. a "rotina" para limpar-la primeiro. Deverá funcionar.

Private Sub PopulaListBox(ByVal Servico As String, _
                          ByVal Tiposervico As String, _
                          ByVal DataInicial As String, _
                          ByVal DataFinal As String)
'Limpa lista
 lstLista.ColumnHeaders.Clear 'Clear the Column Headers
 lstLista.ListItems.Clear
        With lstLista
            .Gridlines = True
            .View = lvwReport
        End With

    On Error GoTo TrataErro.......

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 27/09/2012 9:41 am