ListView: почему код не работает?

[Scuder]

Никогда не работал с ним.. Всё с БД, с таблицами.. А тут понадобилось без БД обойтись. Короче, надо всего лишь заполнить 2 столбца:

Код: Выделить всё

Me.ListView1.ColumnHeaders.Add , , "A", 1000
Me.ListView1.ColumnHeaders.Add , , "B", 2000
Me.ListView1.View = lvwReport

For i = 1 To 50
    Me.ListView1.ListItems.Add 1, , CLng(Rnd * 1000000)
    Me.ListView1.ListItems.Item(1).ListSubItems.Add , , i
    DoEvents
Next i

В результате получаю полностью заполненный первый и на 5% заполненный второй. Т.е. он вставляет несколько значений и всё. Остальные пустые.. Почему?

[Konst_One]

Код: Выделить всё


Dim i As Integer
Me.ListView1.ColumnHeaders.Add , , "A", 1000
Me.ListView1.ColumnHeaders.Add , , "B", 2000
Me.ListView1.View = lvwReport

For i = 1 To 50
    Me.ListView1.ListItems.Add , , CLng(Rnd * 1000000)
    Me.ListView1.ListItems(i).SubItems(1) = i
Next i



[Scuder]

При Sorted = True работать не будет.

Rainbow предложила такой вариант:

Код: Выделить всё

ListView1.ColumnHeaders.Add , , "A", 1000
ListView1.ColumnHeaders.Add , , "B", 2000
ListView1.View = lvwReport

Dim i As Long
Dim li As ListItem
For i = 1 To 50
    Set li = ListView1.ListItems.Add(1, , CLng(Rnd * 1000000))
    li.ListSubItems.Add , , i
    DoEvents
Next i

[Konst_One]

а ты сортировки потом включай:

Код: Выделить всё

....
For i = 1 To 50
    Me.ListView1.ListItems.Add , , CLng(Rnd * 1000000)
    Me.ListView1.ListItems(i).SubItems(1) = i
Next i

Me.ListView1.Sorted = True




впрочем, решать твою проблему можно несколькими способами , что Rainbow и показала

[Scuder]

Ага. Ну я уже и решил.

Всем спасибо.

[tyomitch]

Rainbow предложила такой вариант:

Код: Выделить всё

ListView1.ColumnHeaders.Add , , "A", 1000
ListView1.ColumnHeaders.Add , , "B", 2000
ListView1.View = lvwReport

Dim i As Long
Dim li As ListItem
For i = 1 To 50
    Set li = ListView1.ListItems.Add(1, , CLng(Rnd * 1000000))
    li.ListSubItems.Add , , i
    DoEvents
Next i

А тут, кстати, можно и без промежуточной переменной:

Код: Выделить всё

ListView1.ListItems.Add(1, , CLng(Rnd * 1000000)).ListSubItems.Add , , i

Имхо на глаз воспринимается легче.