ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Tree-определить родительский индекс
18 сообщений из 18, страница 1 из 1
Tree-определить родительский индекс
    #32461897
ппп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ппп
Участник
есть дерево с разветвленной спруктурой (4 уровня) Задача кликая на дочернюю ветвь определить самый старший уровень
Пробовал
intindex = tv.selecteditem.Parent.Index-определяет ближайший старший.
...
Рейтинг: 0 / 0
30.03.2004, 11:19
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32461994
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
intindex = tv.selecteditem.Parent.Index-определяет ближайший старший.

Сделай примерно такую функцию

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
function tNodeParent (myNode as Node)
dim i as long

On error resume next
i=myNode.Parent.Index  -- будет ошибка, если у myNode нет Родителя
 

if err.Number= 0  then
   call tNodeParent  (myNode.Parent)  -- ошибки нет значит, есть еще один Родитель - вызывай функцию еще раз (рекурсия)
 
else
 -- есть ошибка - значит уперлись в самого старшего
 
  tNodeParent =myNode.Index
end if

end function
...
Рейтинг: 0 / 0
30.03.2004, 11:57
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462078
e_basil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
e_basil
Участник
можно еще получить от выбранного нода FullPath
Первое значение до разделителя и будет RootNode
...
Рейтинг: 0 / 0
30.03.2004, 12:32
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462156
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
можно еще получить от выбранного нода FullPath

Хорошее решение, но только если быть уверенным, что в имени Ноды не будет символа-разделителя
...
Рейтинг: 0 / 0
30.03.2004, 13:25
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462183
e_basil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
e_basil
Участник
если главный корень будет с разделителем в имени своем - это можно обыграть
...
Рейтинг: 0 / 0
30.03.2004, 13:41
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462186
e_basil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
e_basil
Участник
вообще - то главный корень обычно известен до постройки дерева
...
Рейтинг: 0 / 0
30.03.2004, 13:43
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462226
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
вообще - то главный корень обычно известен до постройки дерева

Не понял как он м.б. известен - но зато твоя фраза натолкнула меня на свойство Node.Root , млин, и делов-то...
...
Рейтинг: 0 / 0
30.03.2004, 14:05
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462233
ппп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ппп
Участник
Проверил рекурсивную процедуру внутри она работает нормально НО!
Наверное , всвязм с тем , что свойство не может быть изменено, или не может быть присвоено другое - значение процедура делает интересную вещь-
после последнего end if переходит на end func и обратно на на end if и так делает столько раз сколь уровней она прошла и в концне концов возвращает значение индекса который и был ей передан.!
...
Рейтинг: 0 / 0
30.03.2004, 14:09
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462240
e_basil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
e_basil
Участник
Node.Root - это точно, но мне простительно, у меня сегодня голова мягкая
а насчет главного корня - обычно известно, что строишь, например
ВСЕ ГРУППЫ или ВСЕ КЛИЕНТЫ или там РАБОЧИЙ СТОЛ
...
Рейтинг: 0 / 0
30.03.2004, 14:11
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462247
ппп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ппп
Участник
По поводу Node.root-Возвращается значение только самого первого корня
...
Рейтинг: 0 / 0
30.03.2004, 14:19
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462256
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shkurenko Alexander
Участник
2 Senin Viktor
Чего то ты с функцией немного не додумал, вот так будет лучше:
Код: plaintext
1.
2.
3.
4.
5.
6.
Function get_tv_parent(ByRef Node As MSComctlLib.Node) As MSComctlLib.Node
    If Not (Node.Parent Is Nothing) Then
        Set get_tv_parent = get_tv_parent(Node.Parent)
    Else
        Set get_tv_parent = Node
    End If
End Function


И нет этой "мышиной возни" с объектом
...
Рейтинг: 0 / 0
30.03.2004, 14:26
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462323
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
2Shkurenko Alexander
Чего то ты с функцией немного не додумал, вот так будет лучше:

Ну я эту функцию прямо в браузере писал - мог и схалтурить

2ппп
По поводу Node.root-Возвращается значение только самого первого корня

Ну это же тебе и нужно: самый старший уровень - это и есть уровень Root. Или что-то другое нужно?

2e_basil
а насчет главного корня - обычно известно, что строишь, например
ВСЕ ГРУППЫ или ВСЕ КЛИЕНТЫ или там РАБОЧИЙ СТОЛ

Не факт! (с) Саша Белый
Я вообще не знаю какие там главные уровни юзера себе настроили - что хотят, то и делают.

после последнего end if переходит на end func и обратно на на end if и так делает столько раз сколь уровней она прошла и в концне концов возвращает значение индекса который и был ей передан.!

Можно было бы через ByRef передавать Node, не забыв сделать ему Set - Но тогда бы получился пример от Shkurenko Alexanderа :) - им и воспользуйся
...
Рейтинг: 0 / 0
30.03.2004, 14:47
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462369
ппп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ппп
Участник
senin Viktor
В дереве устроено так
Корень1-Ветка1....
Корень2-ветка2
.....
Определяем индеск корняi
Пример Shkurenko Alexanderа аналогично Вашему
...
Рейтинг: 0 / 0
30.03.2004, 15:04
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32462595
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Определяем индеск корняi
Пример Shkurenko Alexanderа аналогично Вашему

Попробовал пример Александар на своем дереве. Мне все вернулось правильно -> Кореньi
...
Рейтинг: 0 / 0
30.03.2004, 16:38
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32463216
ппп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ппп
Участник
Сенину Виктору
Да ноде возвращет а вот если добавить в функцио получение индекса то картина такая же как у вас
...
Рейтинг: 0 / 0
31.03.2004, 09:42
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32463834
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shkurenko Alexander
Участник
2 ппп
Блин, да Вам не угодишь :maniac:
Код: plaintext
1.
2.
3.
4.
5.
Function get_tv_root_index(ByVal Node As MSComctlLib.Node) As Long
    Do Until Node.Parent Is Nothing
        Set Node = Node.Parent
    Loop
    get_tv_root_index = Node.Index
End Function

Вот так пойдёт?
...
Рейтинг: 0 / 0
31.03.2004, 13:47
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32463941
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
2Shkurenko Alexander
Блин, да Вам не угодишь :maniac:


Чего то ты с новой функцией немного не додумал, вот так будет лучше со старой

myIndex=get_tv_parent(tv.SelectedNode).Index


2ппп
Пояснение: функция get_tv_parent возращает объект Node у которого можно просто считать свойство Index.
...
Рейтинг: 0 / 0
31.03.2004, 14:23
| Ответить | Цитировать | Написать  
Tree-определить родительский индекс
    #32463976
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shkurenko Alexander
Участник
2 Senin Viktor
Не, эта функция лучше тем, что здесь нет рекурсии, а возвращать можно и чёрта лысого :-P
...
Рейтинг: 0 / 0
31.03.2004, 14:34
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Tree-определить родительский индекс
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32463834&tid=1675686]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 149ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 215ms
total:  430ms
созд. / загр.: 430ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]