Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.134.118.95] |
|
Сообщ.
#1
,
|
|
|
Как, если нет массива исходных данных, а все данные лежат в ListView? ListView1.View = lvwReport.
|
Сообщ.
#2
,
|
|
|
Логично, что нужно куда-то записать содержимое строки (как Item, так и его SubItems)
Однако такой дизайн, когда данные хранятся в контролах, неудачен - что и проявилось в данной проблеме. |
Сообщ.
#3
,
|
|
|
В том и вопрос - всё придётся записывать отдельно по каждому параметру? Получить сразу копию ListItem не получится?
Всё удачно, не надо держать в памяти большой массив данных, данные получаются извне и выводятся построчно. |
Сообщ.
#4
,
|
|
|
Цитата BlackSun @ всё придётся записывать отдельно по каждому параметру? Отож... ну будет что-то типа (простейший, но рабочий вариант, проверен в MS Access) Private Sub Button1_Click() Dim OneItem As ListItem Dim i As Integer, j As Integer For i = 1 To ListView0.ListItems.Count Set OneItem = ListView0.ListItems(i) Call Save(OneItem.Text) For j = 1 To OneItem.ListSubItems.Count Call Save(OneItem.Text & vbTab & OneItem.ListSubItems(j).Text) Next Next End Sub Sub Save(txt As String) Open "c:\tmp\listview.txt" For Append As #1 Print #1, txt Close #1 End Sub ну и обратная операция. |