Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView, ошибка уникального ключа / object variable / 9 сообщений из 9, страница 1 из 1
03.12.2013, 15:10
    #38487497
tasha klemer
tasha klemer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
всем доброго времени суток,
имеется код прорисовки treeview22


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Option Explicit
____________________

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim LastRow As Integer
Dim LastCol As Integer
Dim LastCell As Integer

Dim Key_, modul_, modul As String
Dim i As Integer
Dim nodX As Node

TreeView22.Nodes.Clear

modul = Worksheets("Лист2").Cells(1, 1).Value
nodX = Me.TreeView22.Nodes.Add(, , "a1", modul)

Key_ = "a1"
Worksheets("Лист1").Select
For i = 1 To 11
 modul_ = Worksheets("Лист2").Cells(i, 1).Value
 If modul <> modul_ Then
   Set nodX = TreeView22.Nodes.Add(, , "a" & i, modul_)
   Key_ = "a" & i
   modul = modul_
   Set nodX = TreeView22.Nodes.Add(Key_, tvwChild, "b" & i, Worksheets("Лист2").Cells(i, 2).Value)
 Else
   Set nodX = TreeView22.Nodes.Add(Key_, tvwChild, "b" & i, Worksheets("Лист2").Cells(i, 2).Value)
 End If
Next i

End Sub



на строке
Код: vbnet
1.
nodX = Me.TreeView22.Nodes.Add(, , "a1", modul)


выдает сообщение что object variable и ошибка уникального ключа.

Нужна ваша помощь в устранение данной проблемы.
Заранее большое спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2013, 16:02
    #38487631
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
дайте без собственных интерпретаций оригинальный текст ошибки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2013, 17:47
    #38487850
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
Set
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2013, 07:08
    #38488297
tasha klemer
tasha klemer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
c сообщением "object variable or with block variable not set " разобрались, действительно нужна было ссылка на обьект
Код: vbnet
1.
SET nodX = Me.TreeView22.Nodes.Add(, , "a1", modul)



теепрь выходят следующие ошибки.

1. Run-time error '13' : Type mismatch
2. Run-time error '35602' : Key is not unique in collection
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2013, 10:30
    #38488441
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
А что непонятно в этих ошибках? Неверный тип. Неуникальный ключ в коллекции (видимо Nodes)

А если скажете, на каких строках ошибки, может и подскажем, в чем дело. И как так они у вас выходят сразу две?

ЗЫ: как выделить фрагмент текста в исходниках, можно прочитать в FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2013, 11:40
    #38488565
tasha klemer
tasha klemer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
Shocker.Pro,
вот именно на этой строке и выходит
Код: vbnet
1.
SET nodX = Me.TreeView22.Nodes.Add(, , "a1", modul)



вторая ошибка выходит после того как второй раз F5 нажимаю, после кнопки Debug.
где именно в этой строчке может быть неверный тип????
все сделала по аналогии с примерами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2013, 12:56
    #38488712
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
На первый взгляд должно работать. Можете выложить тестовый файл, чтобы самому попробовать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2013, 13:00
    #38488721
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
проблема тут
Код: vbnet
1.
Dim nodX As Node



видимо Node из другой библиотеки , объявите явно с указанием полного пути
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2013, 14:17
    #38488885
tasha klemer
tasha klemer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView, ошибка уникального ключа / object variable
Код: vbnet
1.
Dim nodX As MSComctlLib.Node



Решил все проблемы.Спасибо всем за участие.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView, ошибка уникального ключа / object variable / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 151ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156665]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 15ms
total:  151ms
x
x
Закрыть


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