Hinzufügen von Elementen zur Listenansicht zur Laufzeit

Question

Wenn ich hinzufügen, neue Werte zu einer Listenansicht mit:

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

Das einzige Problem ist, dass dies nur eine leere neue Zeile in der Listenansicht zeigt, eine Ahnung, wie es richtig zu aktualisieren?

Normalerweise einen Re-Cord Ich verwende so einfach klar die Daten dann wieder zu bevölkern, aber ich brauche die Benutzer in der Lage sein, Einträge zur Listenansicht hinzuzufügen. Ich werde dann Zyklus durch die Listview Addition der Werte tot er DB nur, wenn der Benutzer die Listenansicht beendet hat zu ändern.

Vielen Dank im Voraus für jede Hilfe.

Answer 1

die .View Eigenschaft Ihrer Listview Unter der Annahme, wird auf „Report“ wird im Folgenden ein paar Zeilen an die Steuerung hinzufügen und den Unterpunkt Text gesetzt.

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