2

当我使用以下方法向列表视图添加新值时:

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

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

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

提前感谢您的帮助。

4

1 回答 1

7

假设您的 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
于 2009-03-13T16:25:52.853 回答