vb6 - 在运行时将项目添加到 ListView

Question

当我使用以下方法向 ListView 添加新值时:

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

唯一的问题是这只会在 ListView 中显示一个空白的新行，知道如何正确更新它吗？

通常我使用的是记录集，因此只需清除然后重新填充数据，但我需要用户能够将条目添加到 ListView 。然后，我将循环遍历 ListView ，仅在用户完成修改 ListView 后才将值添加到数据库中。

在此先感谢您的帮助。

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