在运行时将项添加到listview

Question

当我使用以下命令向listview添加新值时:

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

唯一的问题是,这只会在列表视图中显示一个空白的新行,是否知道如何正确更新它？

通常我使用记录集,所以只需清除然后重新填充数据,但我需要用户能够将条目添加到列表视图.然后,我将循环浏览列表视图,只有在用户完成修改列表视图后才将数据库添加到数据库中.

在此先感谢您的帮助.

Answer 1

假设ListView的.View属性设置为"Report",则以下内容将向控件添加几行并设置子项文本.

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