Кто подскажет где можно в нете найти инфомацию по созданию деревьев(ViewTree) для .adp проектов? Тоесть, чтобы было полное объяснение как создавать их. (от root'a до nod'a).
Спасибо.

У меня есть таблица:
Container(MainAsset, SubAsset), которая использует ключи из таблицы Assets. Точнее, в ней указана иерархия приборов: в MainAsset включены SubAsset. Получается что-то в этом роде:


MainAsset SubAsset
1................2
1................3
1............... 4
2................5
2................6

В этом примере в прибор номер 1 включены: 2,3,4. В номер же 2 из этого списка включены: 5 и 6.
Теперь пробую создать TreeView:

Private Sub Form_Load()
Dim objNode As Node
Dim rs As Object
Dim rs2 As Object
Dim sSubAsset0 As String
Dim sSubAsset1 As String
Dim SQL_0 As String
Dim SQL_1 As String
SQL_0 = "select SubAsset from container where MainAsset=" & Me.AssetNr
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
rs.Open SQL_0, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText
ActiveXCtlSubAssets.LineStyle = tvwRootLines
ActiveXCtlSubAssets.Nodes.Clear

Do While Not rs.EOF
sSubAsset0 = "" & rs("SubAsset")
Set objNode = ActiveXCtlSubAssets.Nodes.Add(, , "root" & CStr(rs!SubAsset), sSubAsset0)


SQL_1 = "select * from container where MainAsset=" & rs("SubAsset")
rs2.Open SQL_1, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText

Do While Not rs2.EOF
sSubAsset1 = "" & rs2("SubAsset")
' Set objNode = ActiveXCtlSubAssets.Nodes.Add("root" & CStr(rs2!MainAsset), tvwChild, sSubAsset1)
rs2.MoveNext
Loop

rs.MoveNext
Loop

If Not rs Is Nothing Then
rs.Close
End If
Set rs = Nothing

If Not rs2 Is Nothing Then
rs2.Close
End If
Set rs2 = Nothing

End Sub


До добавления внутреннего цикла всё работало и на дереве покаывался первый субсписок(2,3,4). А вот с внутренним циклом что-то не получается. Перепробовал кучу вариантов, но пока не выходит.
Кто подскажет как мне правильней сделать?

С циклом я разобрался и вроде он заработал. Вот теперь незнаю как правильно присоеденить "child". Попробовал различные варианты, но постоянно показывает на ошибку "invalid key". Строку с ошибкой я подчеркнул жирным цветом:


Private Sub Form_Load()
Dim objNode As Node
Dim rs As Object
Dim rs2 As Object
Dim sSubAsset0 As String
Dim sSubAsset1 As String
Dim SQL_0 As String
Dim SQL_1 As String
Dim bk As Variant
SQL_0 = "select SubAsset from container where MainAsset=" & Me.AssetNr
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
rs.Open SQL_0, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText
ActiveXCtlSubAssets.LineStyle = tvwRootLines
ActiveXCtlSubAssets.Nodes.Clear

Do While Not rs.EOF
sSubAsset0 = "" & rs("SubAsset")
Set objNode = ActiveXCtlSubAssets.Nodes.Add(, , "root" & CStr(rs!SubAsset), sSubAsset0)
bk = rs.Bookmark
SQL_1 = "select * from container where MainAsset=" & rs("SubAsset")
rs.Close
rs2.Open SQL_1, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText

Do While Not rs2.EOF
sSubAsset1 = "" & rs2("SubAsset")
Set objNode = ActiveXCtlSubAssets.Nodes.Add("root" & sSubAsset0, tvwChild, sSubAsset1)
rs2.MoveNext
Loop
rs2.Close
rs.Open SQL_0, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText
rs.Bookmark = bk
rs.MoveNext
Loop

If Not rs Is Nothing Then
rs.Close
End If
Set rs = Nothing

If Not rs2 Is Nothing Then
rs2.Close
End If
Set rs2 = Nothing

End Sub



Подскажите как исправить ошибку, плиз.