VBNet - Форум - Заполнение полей в ListView

Вопрос: Заполнение полей в ListView Добавлено: 01.09.06 18:10

Автор вопроса: андрей | ICQ: 592601042

Ни дня без проблемы
Не могу заполнить поля в ListView
Всего имеется четыре поля , а заполняется только одно левое
На форме присутствует TreeView и ListView и при выборе NODa как-бы должны заполняться все четыре поля соответствующими данными
Пытался указывать индексы, но метод научного тыка не оправдал себя
Подскажите как нужно делать
Вот примерный кусок кода

Option Explicit
Private Sub КомандПрайс()
Dim запись As ListItem
With lvwДанные.ListItems
.Clear
Set запись = .Add(, , " направляющая ")
Set запись = .Add(, , " агат ")
Set запись = .Add(, , " лазурит ")
End With
End Sub
Private Sub СенатПрайс()
Dim запись As ListItem
With lvwДанные.ListItems
.Clear
Set запись = .Add(, , " бис ")
Set запись = .Add(, , " мульти ")
Set запись = .Add(, , " закрытый ")
End With
End Sub
Private Sub Form_Load()
Dim разд As Node
With tvwРазделы.Nodes
Set разд = .Add(, , "root", " Разделы", 1)
Set разд = .Add("root", tvwChild, , " KOMANDOR ", 1)
Set разд = .Add("root", tvwChild, , " SENATOR ", 1)
End With
End Sub
Private Sub tvwРазделы_NodeClick(ByVal Node As MSComctlLib.Node)
Select Case Node
Case Is = " KOMANDOR "
КомандПрайс
Case Is = " SENATOR "
СенатПрайс
End Select
End Sub
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304	Web-сайт: sur.hotbox.ru/ Профиль \| \| #1	Добавлено: 01.09.06 19:52
	Set запись = .Add(, , " направляющая " запись.SubItems(1) = "1" запись.SubItems(2) = "2" запись.SubItems(3) = "3" Ответить

Номер ответа: 2 Автор ответа: андрей ICQ: 592601042 Вопросов: 12 Ответов: 15	Профиль \| \| #2	Добавлено: 01.09.06 20:00
	Спасибо большое. Все работает Ответить

Страница: 1 |