| |
|
|
| | Есть код:
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"
Кто может подсказать, как вичислять виделенный узел?
Бьюсь с примера никак не разбирусь | |
| |
| |
|
|
| |
|
|
| | что то не хавает.
хз. что то я вобще не вдупляюсь как виловить узел.
с посторением вроде разобрался.
помогите куском кода чтоли, для разборки | |
| |
| |
| |
|
|
| | Че-то не врублюсь тут ни во что. поставь свободное поле на форму, на клик в трее поставь код
Private Sub TreeView0_NodeClick(ByVal Node As Object)
me.СвободноеПоле=node.key
end sub
И что такое note? Имеется в виду node или что-то другое?
А ваще хоть схему скинь или пример. | |
| |
| |
| |
|
|
| | 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 | |
| |
| |
| |
|
|
| | А блин сразу не въехал как всегда. Но тем не менее мой код не помог что ли? | |
| |
| |
| |
|
|
| | а может вот так правильно малевать название функции
Private Sub TreeView0_NodeClick(ByVal Node As Object)
а tree_click - как ты себе придумал | |
| |
| |
| |
|
|
| | чет ты не так делаешь.
1.
зачем Set note=....?
если дерево заполняется вот так
Call Me.TreeView0.Nodes.Add(Ar(1), 4, .......)
2. переменная Note у тебя глобальная для данной функции - так вопрос чему она должна быть равна после твоего последнего
Set note = new_tree.Nodes.Add("R" & "РЕГИСТРЫ ПРОГРАММЫ", 4, "RP" & "РЕГИСТРЫ ПЕРЕМЕЩЕНИЙ", "РЕГИСТРЫ ПЕРЕМЕЩЕНИЙ", 3)
и глобальная ли она, может она сбрасывается на фиг?
3. Проверь с названием (см. пост выше) - т.к. твоя функция ничего не получает - нету у неее параметров | |
| |
| |
