ник: seluvan
Есть код:
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
Пытаюсь получить значения выделенного ключа :
Sub tree_click()
If note.Index = S Then
Me.Поле1.SetFocus
Me.Поле1 = S
Else
note.Index = P
Me.Поле1.SetFocus
Me.Поле1 = note.Key
End If
End Sub
Ругается на "If note.Index = S Then"
Кто может подсказать, как вичислять виделенный узел?
Бьюсь с примера никак не разбирусь