Dim objItem As ListItem
With lvwView
.ColumnHeaders.Add , "header1", "Header1"
.ColumnHeaders.Add , "header2", "Header2"
.ListItems.Add , "item1", "Item 1"
Set objItem = .ListItems.Item("item1")
objItem.SubItems(1) = "Subitem 1"
End With
Set objItem = Nothing
SeT писал(а):Хм, сразу бы сказали, что ListView не стандартный, а от SP4.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 167