|
|
|
новичок
участник
Last Login: 06.03.2007 12:10
Сообщ.: 6,
Visits: 24
|
|
Вернее могу, но заполняются не так, как надо.
Суть в следующем:
есть 2 таблицы:
1-я "ТИПЫ" - Ключ Имя
1 Мониторы
2 Видеокарты
..........................
9 Материнские платы
..................................... и так далее
2-я "ПОДТИПЫ" - Ключ КлючТипа Имя
1 1 Мониторы LCD
2 1 Мониторы CRT
3 2 Видеокарты AGP
4 2 Видеокарты PCI-E
.................................................
15 9 Мат.платы ASUS
................................................ и так далее
Первая таблица-родитель, вторая - потомок, ключ связи - Ключ->КлючТипа
Делаю цикл, всё заполняется, с потомками, но потомки могут сидеть где попало, а некоторых родителей вообще нет.
Код такой:
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim db As Database
Dim rs0 As Recordset
Dim rs1 As Recordset
Dim i As Long
Set db = CurrentDb
Set rs0 = db.OpenRecordset("Типы")
tvSklad.Nodes.Clear
rs0.MoveFirst
Do While Not rs0.EOF
i = rs0(0)
tvSklad.Nodes.Add , , "ID" & CStr(i), rs0(1)
Set rs1 = db.OpenRecordset("select * from Подтипы where КлючТипа=" & i)
rs1.MoveFirst
Do While Not rs1.EOF
tvSklad.Nodes.Add "ID" & CStr(i), tvwChild, "ID" & CStr(rs1(0)), rs1(2)
rs1.MoveNext
Loop
rs0.MoveNext
Loop
End Sub
В чём дело?
Может, кто напишет пример заполнения?
|
|
|
|
|
Supreme Being
участник
Last Login: 24.11.2007 8:22
Сообщ.: 403,
Visits: 4 348
|
|
я - точно не работаю :)))
Попробуйте задать этот вопрос тут
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
| Могу, конечно, ошибиться, так как очень давно возился с TreeView, но мне кажется, что Key у Node должен быть уникальным, а у Вас этот принцип не соблюдается. Например, родитель "Мониторы" и потомок "Мониторы LCD" имеют одинаковые Key: ID1
|
|
|
|
|
новичок
участник
Last Login: 06.03.2007 12:10
Сообщ.: 6,
Visits: 24
|
|
|
|
|