Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск элемента в коллекции / 5 сообщений из 5, страница 1 из 1
11.01.2005, 12:09:18
    #32858746
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск элемента в коллекции
Заполняю коллекцию
Код: plaintext
1.
2.
3.
4.
Set Clbl = New clsCurrentLabel
Set Clbl.Label = frm(V.Name)
Set Clbl.CommandBar = Application.CommandBars("help")
ColcLbls.Add Clbl
Set Clbl = Nothing
Теперь перед заполнением коллекции конкретными элементами необходимо провять наличие каждого из них в данной коллекции. Делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Set Clbl = New clsCurrentLabel
Set Clbl.Label = frm(V.Name)
Set Clbl.CommandBar = Application.CommandBars("help")
For i =  1  to ColcLbls.Count
     If ColcLbls.Item(i) = clbl then 'Здесь ошибка
           IsExist = True
     End If
Next i
If IsExist = False then
     ColcLbls.Add Clbl
End If
Set Clbl = Nothing
Ошибка: Object does not support this property or method.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2005, 12:32:56
    #32858800
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск элемента в коллекции
А если вместо = написать is?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2005, 12:37:09
    #32858814
Мшсещырф
Мшсещырф
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск элемента в коллекции
Владимир СанычА если вместо = написать is?

тогда он всегда добавится, потому как в первой строке
Set Clbl = New clsCurrentLabel
- всегда новый
:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2005, 13:13:09
    #32858905
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск элемента в коллекции
С Is ошибки нет :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2005, 13:22:27
    #32858939
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск элемента в коллекции
Хм...
А есть ли смысл в этой проверке?
Я исходил из того, что пользователь может работать с базой весь день, не закрывая ее, то есть моя коллекция будет расти и расти.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск элемента в коллекции / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 370ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1669392]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 231ms
total:  370ms
x
x
Закрыть


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