powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / AddItem и RemoveItem есть вопросик !!!
7 сообщений из 7, страница 1 из 1
AddItem и RemoveItem есть вопросик !!!
    #32721092
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребят, как работать с этими операторами, я знаю, но вот интересно:
Если в одном ЛистБоксе переменная = 0,25л Молоко, то после добавления в другой ЛистБокс и удаленеия сей переменной из первого ЛистБокса, получается следующие: в первом ЛистБоксе переменная становится равной 25л Молоко и добаляется к предыдущему значению.
Короче, если в переменной встречается запитая, то при удалении переменной из списка, переменная делется на две составляющих, из которых первая(до запятой), добавляется к предыдущему значению.

Подскажите пожалуста, как с этим бороться? Отказаться от применения запятой практически не возможно! Уж больно велик человеческий фактор.
...
Рейтинг: 0 / 0
AddItem и RemoveItem есть вопросик !!!
    #32721107
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Классный глюк!
Вариантов выкрутиться может быть несколько, вот один (черновик):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub RemoveItem(ctl As Control, index As Long)
    Dim i As Long
    Dim aListItems As Variant
    aListItems = Split(ctl.RowSource, ";")
    ctl.RowSource = vbNullString
    For i =  0  To UBound(aListItems)
        If i <> index Then ctl.AddItem aListItems(i)
    Next
End Sub
...
Рейтинг: 0 / 0
AddItem и RemoveItem есть вопросик !!!
    #32721116
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо! Обязательно попробую. Правда уже в понедельник, выходные однако!
P.S. Если есть еще варианты, кидайте, буду признателен.
...
Рейтинг: 0 / 0
AddItem и RemoveItem есть вопросик !!!
    #32721121
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не утерпел и проверил! Да, работает, если не учитывать время затраченное на обновление(переиндексацию), а оно составило около 30 сек. Это ListCount=650, а что будет при ListCount=*****?! Не теряю надежды и верю в Вас Гуру!

Подскажите кто-нибудь, как можно в ListBox при Типе Источника Строк=Список значений указать значения из таблици? Пока заполняю все значения через циклы и AddIdem, но при таком заполнении тратится много времени на создание списка.
...
Рейтинг: 0 / 0
AddItem и RemoveItem есть вопросик !!!
    #32721139
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторкак можно в ListBox при Типе Источника Строк=Список значений указать значения из таблици?
Дык, а почему не можете использовать Table/Query?
Будет намного быстрее.
...
Рейтинг: 0 / 0
AddItem и RemoveItem есть вопросик !!!
    #32722624
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Приветствую Вас! Извините, что долго не отвечал. Запара на работе.
А не могу использовать, по-тому, что при данном источнике строк(RowSourseType) акцес не дает использовать команду RemoveItem. Мне же необходимо формировать второй список без повторений и, для этого, я использую RemoveItem. Тем самым, подчищая исходный источник данных.
Можно конечно попробовать формировать источник через "Select * From * Where *<>значению второго ЛистБокса". Но, это как-то через "одно" место получается! Подскажите, может существует более приемлемый способ? Уже третий день сижу и парюсь!
...
Рейтинг: 0 / 0
AddItem и RemoveItem есть вопросик !!!
    #32722684
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Про "одно" место - заблуждение. Нормальный для аксессных приложений путь - заполнять через запросы
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / AddItem и RemoveItem есть вопросик !!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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