実行時にリストビューにアイテムを追加する

StackOverflow https://stackoverflow.com/questions/643385

  •  22-07-2019
  •  | 
  •  

質問

を使用してリストビューに新しい値を追加するとき：

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

唯一の問題は、リストビューに空白の新しい行しか表示されないことです。正しく更新する方法はありますか？

通常、レコードセットを使用しているので、データをクリアしてから再入力するだけですが、ユーザーがリストビューにエントリを追加できるようにする必要があります。次に、ユーザーがリストビューの修正を完了した後にのみ、リストビューを循環して値をDBに追加します。

ご協力ありがとうございます。

役に立ちましたか？

解決

ListViewの.Viewプロパティが＆quot; Report＆quot;に設定されていると仮定すると、以下はコントロールに数行を追加し、サブアイテムテキストを設定します。

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
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top