ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Коллеги, подскажите, что делаю не так TreeView VBA
8 сообщений из 8, страница 1 из 1
Коллеги, подскажите, что делаю не так TreeView VBA
    #35719190
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
Делаю примерно следующее. Есть рекордсет (rs) и есть TreeView контрол (tv). Использую рекурсию для построения всего дерева, в функцию передается iParentID, который для корневого элемента равен 0.

когда пробую добавить в него элемент следующим способом:
Код: plaintext
set nd = tv.nodes.add( , ,"t1","SomeText")
Добавляет
Когда пробую добавить в него элемент из записи рекордсета
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
if iParentID =  0  then
   strParentID = ""
   iChild = ""
else
   strParentID = "t" & rs![ID]
   iChild = tvwChild
endif

set nd = tv.nodes.add(strParentID, iChild, "t" & rs![ID], rs![Name])
На корневом же элементе вылетает ошибка "35603. Invalid key".
Но тогда чем отличается первый вариант от второго?
...
Рейтинг: 0 / 0
17.12.2008, 10:47
| Ответить | Цитировать | Написать  
Коллеги, подскажите, что делаю не так TreeView VBA
    #35719227
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Тем, что параметр, равный пустой строке, не тоже самое, что отсутствие параметра.
...
Рейтинг: 0 / 0
17.12.2008, 11:01
| Ответить | Цитировать | Написать  
Коллеги, подскажите, что делаю не так TreeView VBA
    #35719237
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
Antonariy,
А можно как-то с этим справиться, чтобы не писать один и тот же код 2 раза?
...
Рейтинг: 0 / 0
17.12.2008, 11:05
| Ответить | Цитировать | Написать  
Коллеги, подскажите, что делаю не так TreeView VBA
    #35719291
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
if iParentID =  0  then
   set nd = tv.nodes.add(, , "t" & rs![ID], rs![Name])
else
   strParentID = "t" & rs![ID]
   iChild = tvwChild
   set nd = tv.nodes.add(strParentID, iChild, "t" & rs![ID], rs![Name])
endif
...
Рейтинг: 0 / 0
17.12.2008, 11:21
| Ответить | Цитировать | Написать  
Коллеги, подскажите, что делаю не так TreeView VBA
    #35719312
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
Antonariy,
Спасибо, вы правы.
...
Рейтинг: 0 / 0
17.12.2008, 11:26
| Ответить | Цитировать | Написать  
Коллеги, подскажите, что делаю не так TreeView VBA
    #35799153
Sergiol72
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiol72
Гость
Коллеги, добрый день.

имеется цикл заполнения TreeView1:

Код: plaintext
1.
2.
3.
4.
For a =  0  To UBound(obj,  2 )
        ...
        Set nodx = TreeView1.Nodes.Add(obj( 2 , a), tvwChild, obj( 3 , a), obj( 3 , a))
        ...
Next a

Проблема в том, что если ключ obj(3, a) уже есть (в другой ветви obj(2, a)!!!), возникает ошибка: "Run-Time Error 35072 - Key is not unique in collection".

пример:
Что делать, если нужно отобразить в дереве так:

Код: plaintext
1.
2.
3.
4.
Russia------,
            Saint-Petersburg

USA---------,
            Saint-Petersburg



спасибо.
...
Рейтинг: 0 / 0
05.02.2009, 14:09
| Ответить | Цитировать | Написать  
Коллеги, подскажите, что делаю не так TreeView VBA
    #35799162
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Sergiol72,
используйте составной ключ, например obj(3, a)+obj(2, a)
...
Рейтинг: 0 / 0
05.02.2009, 14:12
| Ответить | Цитировать | Написать  
Коллеги, подскажите, что делаю не так TreeView VBA
    #35799203
Sergiol72
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiol72
Гость
big-duke,

спасибище большущее, получилось.

Код: plaintext
1.
2.
3.
4.
For a =  0  To UBound(obj,  2 )
        ...
        Set nodx = TreeView1.Nodes.Add(obj( 2 , a), tvwChild, obj( 3 , a)+obj( 2 , a), obj( 3 , a))
        ...
Next a
...
Рейтинг: 0 / 0
05.02.2009, 14:18
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Коллеги, подскажите, что делаю не так TreeView VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=168&tid=2161366]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 23ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 188ms
total:  284ms
созд. / загр.: 284ms
x
x
Закрыть


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