вопрос по ListView

[mitrofanofff]

Добрый день, уважаемые. Подскажите как решить вопрос.
задача в следующем: есть 2 ListView на одной форме, оба Report. На первом таблица. При двойном клике на элементе из таблицы он должен перемещаться на второй ListView. Делаю так:

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

Option Explicit
Dim Ik As MSComctlLib.ListItem
Dim Ih As MSComctlLib.ListItem
Dim R As String

Private Sub Form_Load()
est
LVPerInj2.ListItems.Clear
End Sub

Private Sub est()
LVPerInj1.ListItems.Clear
Set RS = BD.OpenRecordset("SELECT PhonesObshaya.IDP, PhonesBrand.Brand, PhonesModel.Model, PhonesObshaya.IMEI, PhonesProblem.Problem, PhonesObshaya.Garant FROM PhonesProblem INNER JOIN (PhonesBrand INNER JOIN (PhonesModel INNER JOIN PhonesObshaya ON PhonesModel.ID = PhonesObshaya.Model) ON (PhonesBrand.IDbrand = PhonesObshaya.Brand) AND (PhonesBrand.IDbrand = PhonesModel.Brand)) ON PhonesProblem.IDProb = PhonesObshaya.Problem WHERE IDP<>'" & R & "'")
If Not RS.EOF Then
    Do
        Set Ik = LVPerInj1.ListItems.Add(, RS!IdP & "'", RS!IdP)
        Ik.SubItems(1) = RS!Brand
        Ik.SubItems(2) = RS!Model
        Ik.SubItems(3) = IIf(IsNull(RS!IMEI) = True, "", RS!IMEI)
        Ik.SubItems(4) = RS!Problem
        Ik.SubItems(5) = RS!Garant
        RS.MoveNext
    Loop Until RS.EOF
End If
End Sub

Private Sub LVPerInj1_DblClick()
R = LVPerInj1.SelectedItem.Text
est
nado
End Sub
Private Sub nado()
Set RS = BD.OpenRecordset("SELECT PhonesObshaya.IDP, PhonesBrand.Brand, PhonesModel.Model, PhonesObshaya.IMEI, PhonesProblem.Problem, PhonesObshaya.Garant FROM PhonesProblem INNER JOIN (PhonesBrand INNER JOIN (PhonesModel INNER JOIN PhonesObshaya ON PhonesModel.ID = PhonesObshaya.Model) ON (PhonesBrand.IDbrand = PhonesObshaya.Brand) AND (PhonesBrand.IDbrand = PhonesModel.Brand)) ON PhonesProblem.IDProb = PhonesObshaya.Problem WHERE IDP='" & R & "'")
If Not RS.EOF Then
    Do
        Set Ih = LVPerInj2.ListItems.Add(, RS!IdP & "'", RS!IdP)
        Ih.SubItems(1) = RS!Brand
        Ih.SubItems(2) = RS!Model
        Ih.SubItems(3) = IIf(IsNull(RS!IMEI) = True, "", RS!IMEI)
        Ih.SubItems(4) = RS!Problem
        Ih.SubItems(5) = RS!Garant
        RS.MoveNext
    Loop Until RS.EOF
End If
End Sub


результат - элементы во второй ListView добавляются, но при повторном клике на первом LV, естественно, добавляются "обратно"...
Заранее благодарен

[xml]

У меня возник немного другой вопрос, но также про ListView:
Иногда встречался с таким контролом, совсем как ListView, но, там у элементы являются узлами TreeNode.
Например, список устройств в Alcohol 120%.
Возможно ли такое на обычном ListView или это другой контрол?

[Денис]

xml
Да. другой TreeView называется.

[xml]

Нет, у него были SubItems и колонки.

[mitrofanofff]

дык... а по существу?

[Хакер]

Засунь Три-Вью в Лист-вью и насладись, не забывая о синхронизации.

[mitrofanofff]

если честно не совсем понял.... вся эта процедура нужна для переноса элементов из одного списка в другой (например добавление в расходную накладную), а тривью как-то не подходит для этой цели (может просто у меня с воображением плохо)

[Хакер]

mitrofanofff
Это был ответ пользователю xml.

[xml]

Засунь Три-Вью в Лист-вью и насладись, не забывая о синхронизации.

Не совсем понял.
Да и видел много примеров, когда Item и SubItem в ListView были другими контролами, для примера, в Nero, на экране записи один из SubItems - ProgressBar.

[Хакер]

Да и видел много примеров, когда Item и SubItem в ListView были другими контролами, для примера, в Nero, на экране записи один из SubItems - ProgressBar.

Казалось, этот текст написан с так, как будто в нём должно быть какое то противоречие моему посты, но я сколько ни пытался, не смог найти его (противоречие).

[Денис]

Зацените Quantum TreeList (я сейчас тока с ними и работаю, и все эти вопросы оставил в стороне))

[mitrofanofff]

в общем сам решил

[netdemon]

Засунь Три-Вью в Лист-вью и насладись, не забывая о синхронизации.

Не совсем понял.
Да и видел много примеров, когда Item и SubItem в ListView были другими контролами, для примера, в Nero, на экране записи один из SubItems - ProgressBar.

Да туда можно хоть чёрта лысего засунуть.