TreeView, ошибка уникального ключа / object variable / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView, ошибка уникального ключа / object variable

9 сообщений из 9, страница 1 из 1

TreeView, ошибка уникального ключа / object variable

#38487497

tasha klemer

Гость

всем доброго времени суток,
имеется код прорисовки 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

nodX = Me.TreeView22.Nodes.Add(, , "a1", modul)

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

Нужна ваша помощь в устранение данной проблемы.
Заранее большое спасибо.

...

Рейтинг:

0 / 0

03.12.2013, 15:10

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38487631

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

дайте без собственных интерпретаций оригинальный текст ошибки

...

Рейтинг:

0 / 0

03.12.2013, 16:02

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38487850

VladConn

Участник

Сообщения: 20 099

Рейтинг: 0 / 0

Set

...

Рейтинг:

0 / 0

03.12.2013, 17:47

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38488297

tasha klemer

Гость

c сообщением "object variable or with block variable not set " разобрались, действительно нужна было ссылка на обьект

Код: vbnet

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, 07:08

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38488441

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А что непонятно в этих ошибках? Неверный тип. Неуникальный ключ в коллекции (видимо Nodes)

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

^{ЗЫ: как выделить фрагмент текста в исходниках, можно прочитать в FAQ}

...

Рейтинг:

0 / 0

04.12.2013, 10:30

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38488565

tasha klemer

Гость

Shocker.Pro,
вот именно на этой строке и выходит

Код: vbnet

SET nodX = Me.TreeView22.Nodes.Add(, , "a1", modul)

вторая ошибка выходит после того как второй раз F5 нажимаю, после кнопки Debug.
где именно в этой строчке может быть неверный тип????
все сделала по аналогии с примерами

...

Рейтинг:

0 / 0

04.12.2013, 11:40

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38488712

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

На первый взгляд должно работать. Можете выложить тестовый файл, чтобы самому попробовать?

...

Рейтинг:

0 / 0

04.12.2013, 12:56

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38488721

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

проблема тут

Код: vbnet

Dim nodX As Node

видимо Node из другой библиотеки , объявите явно с указанием полного пути

...

Рейтинг:

0 / 0

04.12.2013, 13:00

| Ответить | Цитировать | Написать

TreeView, ошибка уникального ключа / object variable

#38488885

tasha klemer

Гость

Код: vbnet

Dim nodX As MSComctlLib.Node

Решил все проблемы.Спасибо всем за участие.

...

Рейтинг:

0 / 0

04.12.2013, 14:17

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView, ошибка уникального ключа / object variable

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38488885&tid=2156665]:	0ms
get settings:	11ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	46ms
get topic data:	9ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	265ms

total:	395ms