Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как использовать ListBox? / 17 сообщений из 17, страница 1 из 1
24.04.2004, 15:55
    #32495406
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
В форме, кот привязана к табл. есть контрол типа ListBox. Он привязан к текстовому полю в таблице, тип источника строк = Список значений.

Трабла в том, что этот вредный ListBox никак не хочет отображать данные из поля, независимо от его содержания. Когда же смотришь в табл. - там есть данные, например "1;2;3". Сами данные он заносит, но при переключении на другую запись, он показывает старое значение, которое занесено в этом сеансе работы с формой ...

Как заставить его нормально и отображать данные в формате "1;2;3" и потом нормально эти же данные отображать...

Поможите, кто может ...
...
Рейтинг: 0 / 0
24.04.2004, 16:03
    #32495408
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
А можно увидеть свойства этого листбокса?

ControlSource=
RowSource=
ColumnCount=
ColumnWidths=
...
Рейтинг: 0 / 0
24.04.2004, 16:14
    #32495415
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
ControlSource=поле_таблицы
RowSource= ""
ColumnCount=1
ColumnWidths=1 см
...
Рейтинг: 0 / 0
24.04.2004, 16:22
    #32495421
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
И RowSource нигде не меняется программно?
...
Рейтинг: 0 / 0
24.04.2004, 16:29
    #32495424
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
меняется кнопками addPlast и removePlast:

plasts - это тот самый ListBox

plast - это ComboBox

Private Sub addPlast_Click()
Dim aPos As Long

If Not IsNull(Me!plast) Then
aPos = InStr(Me!plast, Me!plasts)
If aPos = 0 Then
Me!plasts.AddItem (Me!plast)
End If
End If
End Sub

Private Sub removePlast_Click()

Dim aIndex As Variant

For Each aIndex In Me!plasts.ItemsSelected
Me!plasts.RemoveItem (aIndex)
Next aIndex

End Sub
...
Рейтинг: 0 / 0
24.04.2004, 16:32
    #32495429
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
А вот это "1;2;3" - это значение одного поля одной записи? Или это несколько значений?
...
Рейтинг: 0 / 0
24.04.2004, 16:45
    #32495436
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
"1;2;3" - это значение одного поля, в данном случае geo_plasts

Собственно ListBox содержит список пластов, а при нажатии этих кнопок, соответственно пласты должны добавляться/удалять в/из ListBox, а потом из ListBox-а сохраняться в поле табл geo_plasts ...
...
Рейтинг: 0 / 0
24.04.2004, 16:46
    #32495437
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
Код: plaintext
Me!plasts.AddItem (Me!plast) 


что это, ...? (@Артур Конан Дойл)

может так подразумевалось

Me!plasts.Value = Me!plast.Value

?
...
Рейтинг: 0 / 0
24.04.2004, 16:49
    #32495439
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
Victosha, да это подразумевалось, но в Accesse можно и так записать - смысл от этого не поменяется ...
...
Рейтинг: 0 / 0
24.04.2004, 16:51
    #32495440
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
2 Рачаев Олег
я пошел учить матчасть
...
Рейтинг: 0 / 0
24.04.2004, 16:53
    #32495441
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
Но если одно поле 1;2;3, а другое 4;5;6, то полученное 1;2;3;4;5;6 будет воспринято листбоксом как список из 6 значений, а не из 2.
...
Рейтинг: 0 / 0
24.04.2004, 16:54
    #32495443
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
Интересно посмотреть в дебаггере, чему получается равен RowSource после этих AddItem.
...
Рейтинг: 0 / 0
24.04.2004, 16:55
    #32495444
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
Саныч, ну этого то я и немогу от ListBox-а добиться, он вообще ничего не отображает...
...
Рейтинг: 0 / 0
24.04.2004, 17:00
    #32495445
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
Саныч, в дебагере ... все нормально добавляется ... и отображается только то что добавляешь в данном сеансе работы с формой ... но этот ListBox не может подхватить поле из табл ... почему-то ...
...
Рейтинг: 0 / 0
24.04.2004, 17:08
    #32495449
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
авторв дебагере ... все нормально добавляется
У меня плохо с телепатией. Не вижу. :^)
...
Рейтинг: 0 / 0
24.04.2004, 17:35
    #32495467
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
2 Рачаев Олег

докладываю - матчасть по данному вопросу выучил, чего и Вам желаю. -)

а пока, если хотите, чтобы работало, как ВАМ НАДО - замените AddItem на то, что подразумевалось.
...
Рейтинг: 0 / 0
24.04.2004, 20:55
    #32495511
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как использовать ListBox?
автор...и отображается только то что добавляешь в данном сеансе работы с формой ... но этот ListBox не может подхватить поле из табл ... почему-то ...

Он может его "подхватить" если это значение входит в источник записей. А я не вижу, в каком месте вы его добавляете. Кроме того вообще не понятен смысл добавления, удаление item-ов. Такое ощущение, что вы хотите, чтобы весь набор (все строки) сохранились в одном поле.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как использовать ListBox? / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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