Заполнение 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.Взгляните здесь и прокрутите вниз.Несколько хороших примеров.