在运行时将项目添加到列表视图

Question

当我使用添加新值列表视图：

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

唯一的问题是，这仅显示在列表视图空白新行，任何知道如何正确地更新它？

通常情况下，我使用的记录如此简单清楚，然后重新填充数据，但我需要的用户能够将条目添加到列表视图。我会再通过列表视图周期加上值TOT他DB仅一旦用户已经完成了修改列表视图。

预先感谢任何帮助。

Answer 1

假设你的ListView的.View属性设置为“报告”，下面就一对夫妇行添加到控制和设置子项的文字。

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