из ListView1 в ListView2

[Sorch]

Пытаюсь перенести данные и одного ListView1 в другой ListView2. Первая строка заполняется нормально. А вот вторая ...!!! Добавление кажного последующего значения из столбца строки смещает пребедущее значение на строку вниз. Таким образом значения заполняются не строками а "лесенкой" Как от этого избавиться?

1 строка:
List1.ListItems(1).SubItems(1) = wf99.ListItems(1).Text
List1.ListItems(1).SubItems(2) = wf99.ListItems(1).SubItems(1)
List1.ListItems(1).SubItems(3) = wf99.ListItems(1).SubItems(2)
List1.ListItems(1).SubItems(4) = wf99.ListItems(1).SubItems(3)


2 строка, 3 и т.д:

For cik = 2 To i
List1.ListItems.Add(cik).SubItems(1) = wf99.ListItems(cik).Text
List1.ListItems.Add(cik).SubItems(2) = wf99.ListItems(cik).SubItems(1)
List1.ListItems.Add(cik).SubItems(3) = wf99.ListItems(cik).SubItems(2)
List1.ListItems.Add(cik).SubItems(4) = wf99.ListItems(cik).SubItems(3)
Next

[RayShade]

А что, допустим не сделать просто

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



List1.ListItems=wf99.ListItems



[Sorch]

List1.ListItems=wf99.ListItems - Этот способ не работает!

[Alexanbar]

Пытаюсь перенести данные и одного ListView1 в другой ListView2. Первая строка заполняется нормально. А вот вторая ...!!! Добавление кажного последующего значения из столбца строки смещает пребедущее значение на строку вниз. Таким образом значения заполняются не строками а "лесенкой" Как от этого избавиться?

1 строка:
List1.ListItems(1).SubItems(1) = wf99.ListItems(1).Text
List1.ListItems(1).SubItems(2) = wf99.ListItems(1).SubItems(1)
List1.ListItems(1).SubItems(3) = wf99.ListItems(1).SubItems(2)
List1.ListItems(1).SubItems(4) = wf99.ListItems(1).SubItems(3)


2 строка, 3 и т.д:

For cik = 2 To i
List1.ListItems.Add(cik).SubItems(1) = wf99.ListItems(cik).Text
List1.ListItems.Add(cik).SubItems(2) = wf99.ListItems(cik).SubItems(1)
List1.ListItems.Add(cik).SubItems(3) = wf99.ListItems(cik).SubItems(2)
List1.ListItems.Add(cik).SubItems(4) = wf99.ListItems(cik).SubItems(3)
Next

Очень странный код.

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

Dim Litem as listitem

for i=1 to wf99.listitems.count
     Set Litem=list1.listitems.add()
     litem.text=wf99.listitems(i).text

  for j=1 to wf99.columnheaders.count-1
 
     litem.subitems(j)=wf99.listitems(i).subitems(j)
   next j
next i


что-то в этом духе.

[Sorch]

Спасибо, получчилось, но тут по ходу появился еще один вопрос...
На форме находиться ListView, после его заполнения данными - делаю печать формы:
PrintReport.PrintForm
форма печатается, но содержимое ListView - нет! В чем может быть проблема?