adicionar itens a ListView em tempo de execução

Question

Quando eu adicionar novos valores para um listview usando:

    Set lstView = ListView(0).ListItems.Add(, , txtName)
    lstView.ListSubItems.Add , , txtValue
    lstView.Refresh

O único problema é que isso só exibe uma nova linha em branco na listview, alguma idéia de como atualizá-lo corretamente?

Normalmente eu estou usando um conjunto de registros tão simplesmente limpar, então repovoar os dados, mas eu preciso que o usuário seja capaz de adicionar entradas ao listview. Eu, então, percorrer a listview adicionando os valores tot ele DB apenas uma vez que o usuário tenha terminado altera a listview.

Agradecemos antecipadamente por qualquer ajuda.

Answer 1

Assumindo a propriedade .ver do seu ListView é definido como "Report", o seguinte irá adicionar um par de linhas ao controle e definir o texto sub item.

Dim li As ListItem

With ListView1
    .ColumnHeaders.Add , , "One"
    .ColumnHeaders.Add , , "Two"
    .ColumnHeaders.Add , , "Three"

    Set li = .ListItems.Add(, , "Row1Item1")
    li.SubItems(1) = "Row1Item2"
    li.SubItems(2) = "Row1Item3"

    Set li = .ListItems.Add(, , "Row2Item1")
    li.SubItems(1) = "Row2Item2"
    li.SubItems(2) = "Row2Item3"
End With