ник: seluvan
note єто переменная типа node:
Option Compare Database
Dim new_tree As TreeView, note As Node, S As String, P As String, kkey As String
Sub tree()
Set new_tree = Me.TreeView0.Object
S = "S" & "Справочники программы"
Set note = new_tree.Nodes.Add(, , S, "СПРАВОЧНИКИ ПРОГРАММЫ", 1)
P = "P" & "ФИО"
Set note = new_tree.Nodes.Add(S, 4, P, "ФИО", 3)
Set note = new_tree.Nodes.Add("S" & "Справочники программы", 4, "Sk" & "СКЛАД", "СКЛАД", 3)
Set note = new_tree.Nodes.Add(, , "R" & "РЕГИСТРЫ ПРОГРАММЫ", "РЕГИСТРЫ ПРОГРАММЫ", 1)
Set note = new_tree.Nodes.Add("R" & "РЕГИСТРЫ ПРОГРАММЫ", 4, "RP" & "РЕГИСТРЫ ПЕРЕМЕЩЕНИЙ", "РЕГИСТРЫ ПЕРЕМЕЩЕНИЙ", 3)
End Sub