実行時にリストビューにアイテムを追加する
-
22-07-2019 - |
質問
を使用してリストビューに新しい値を追加するとき:
Set lstView = ListView(0).ListItems.Add(, , txtName)
lstView.ListSubItems.Add , , txtValue
lstView.Refresh
唯一の問題は、リストビューに空白の新しい行しか表示されないことです。正しく更新する方法はありますか?
通常、レコードセットを使用しているので、データをクリアしてから再入力するだけですが、ユーザーがリストビューにエントリを追加できるようにする必要があります。次に、ユーザーがリストビューの修正を完了した後にのみ、リストビューを循環して値をDBに追加します。
ご協力ありがとうございます。
解決
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
所属していません StackOverflow