Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Работа со словарем "Scripting.Dictionary"
 
#1
25.04.2015 00:34:31
Доброго всем времени суток.
Столкнулся с такой проблемой.
С помощью словаря создаю уникальные списки комбобоксов.
При выборе в Combobox1 - значение Сетевые
- далее
проверяю листиндекс во всех последующих.
Для проверки вывожу msgbox c листиндексом в событии combobox_change до обновления словарей (FillControls me) и после.
В combobox8 - при событии change происходит смена листиндекса на -1 после обновления, а при этом значение отображается правильное. Такого быть не должно!
Кто-нибудь может посмотреть файл и сказать в чем проблема? Я уже и не знаю....
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#2
25.04.2015 09:20:22
Цитата
!  \Downloads\Сети (1).rar: Неподдерживаемый формат архива. Установите более новую версию WinRAR.
! \Downloads\Сети (1).rar: Архив повреждён или имеет неизвестный формат
------------
перепакуйте файл, RAR не открывает
 
 
 
#3
25.04.2015 09:40:54
Удалил все лишнее из файла.
Задача упростилась.
Почему на комбобоксе8 при выборе значения листиндекс сбрасывается на - 1, такого же не должно быть, а значение выбирается правильно, причем оно соответствует листиндексу 1?
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#4
25.04.2015 11:14:21
так вы там в конце вызываете fillcontrols и присваиваете комбо новый список, а до этого все нормально
Живи и дай жить..
 
 
 
#5
25.04.2015 11:32:26
Именно так.
На всех комбо отрабатывает правильно. Последний глючит.
Почему?
Мне потом будут нужны листиндексы.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#6
25.04.2015 11:36:00
Листиндекс не должен сбрасываться на -1, если в нем есть значение.
Если выбрать в комбобокс8 "Выбрать все", то листиндекс = 0 - это верно, а при другом выборе пишет (-1), но отображает список верно.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#7
25.04.2015 12:04:01
а зачем каждый раз все заполнять?

я уж не говорю зачем в цикле на каждом шагу пытаться добавитьв словарь одно и то же значение(выбрать все) ?
Живи и дай жить..
 
 
 
#8
25.04.2015 12:20:37
Я учусь только это делать. Выбрать все - я уберу из цикла. Понял, что ошибся.
Обновляю все, т.к. это часть кода.
Будут удаления из базы, добавления, изменения и я хочу в фильтрах видеть реальную ситуацию для выбора условий.
Весь код не умещается в 100 кб, пришлось почти все зарезать...
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#9
25.04.2015 12:34:26
Выбрать все - убрал из цикла.
В остальном - листиндекс так же сбивается в комбобокс8 на -1
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#10
25.04.2015 13:51:32
Dict.Add Str(arrData(i, 5)), i&
разные типы данных получались, привел к текстовым
Живи и дай жить..
 
 
 
#11
25.04.2015 14:15:16
вообще предложил бы переписать так:
Код
Public Sub FillControls(ByVal UForm As UserForm)
    Dim i As Long, j&
    'Сеть
    On Error Resume Next
    For j = 2 To 5
        Set Dict = CreateObject("Scripting.Dictionary")
        With Dict
              .Add "Выбрать все", 0&
                For i = LBound(arrData, 1) + 1 To UBound(arrData, 1)
                    .Add CStr(arrData(i, j)), i&    ' + 1
                Next i
                UForm.Controls("Combobox" & (j + 3)).List = Dict.keys
        End With
        Set Dict = Nothing
    Next j
End Sub
Живи и дай жить..
 
 
 
#12
25.04.2015 14:52:27
Спасибо, Слэн.
Я потестирую позже, сейчас не могу.
Потом напишу.
Еще раз спасибо.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#13
26.04.2015 00:42:11
Слэн, спасибо за помощь.
Теперь все верно работает. Возьму на вооружение.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
Страницы: 1
Наверх