填充ListView

Question

我正在努力填充列表视图，我以前从未使用过它们。

我可以填充一列，但是我正在努力填充下一列。

这就是我所拥有的：

With ListView1
   .View = lvwReport
   .FullRowSelect = True
   .Gridlines = True
   With .ColumnHeaders
      .Clear
      .Add , , "Language", 70
      .Add , , "Language", 70
      .Add , , "Language", 70
   End With

End With




    Set sh = ThisWorkbook.Worksheets(4)
    With sh
        LR = .Range("A" & .Rows.Count).End(xlUp).row
    End With
    lC = 0


For r = 2 To LR
Set li = ListView1.ListItems.Add
   li.ListSubItems.Add , , sh.Cells(r, 4).Value
Next

我以为我可以再增加一个

Set li = ListView1.ListItems.Add
   li.ListSubItems.Add , , sh.Cells(r, 5).Value

但这只是追加第一列。

谢谢

Answer 1

我认为您需要使用：

Set li = ListView1.ListItems.Add(, , "Item 1")

然后继续执行ListSubItems。看看here并向下滚动。一些很好的例子。