Question

使用以下方法将新值添加到列表视图时

    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

在运行时将项添加到listview

1 个答案: