Проблема источника строк списка в ленточной форме
Администратор
Те, кто предпочитает работать с ленточными формами наверняка сталкивались с такой проблемой: источник строк списка должен зависеть от какого-то поля в данной строке. Хороших решений эта проблема не имеет. Типичное решение выглядит так: на вход в список вешаем событие, в которое включаем обрезку целого списка по условию. На выходе из списка другое событие - возвращаем полный источник. Т.е.
На вход:
Me.List.RowSource = "SELECT * FROM TABLE WHERE id = " & Me.Field
Me.List.Requery
На выход:
Me.List.RowSource = "SELECT * FROM TABLE"
Me.List.Requery
На практике происходит следующее. При входе в остальных строках в списке внезапно пропадает инфа. Т.е. поля со списками в других строках становятся пустыми - конечно, на самом деле ничего не пропадает, просто источник строк изменился и в остальных строках (элемент-то управления у нас один на всю форму) и поле со списком не может в других строках подобрать в своем источнике нужную строку для указанного кода. При выходе информация снова появляется в списках.
Налицо проблема, исчезновение информации может ввергнуть юзера в шок. Что делать? Я придумал такой выход. Лучшим его назвать язык не повернется, но он прост и не загружает процессор.)
Фактически это дополнение к описанному методу. Делаем в таблице поле "nmList". Это поле будет выполнять роль временного хранителя данных.
Теперь делаем запрос, который будет обновлять это поле перед входом в форму: нам же известен код, который и определяет строку в поле со списком. Вот в nmList мы помещаем текстовую часть, которая скрывается за кодом.
Следующий шаг, дизайн формы. Стягиваем поле со списком вправо до размеров кнопки раскрывающей список. Прилепляем к этой кнопке текстовое поле nmList. Теперь у нас как будто полноценное поле со списком.
Дальше, на обновление списка вешаем
Me.nmList = Me.List.Column(1) 'Это если видимая часть во втором столбце
Ну чтобы было совсем хорошо, на обновление nmList стоит повесить
If IsNull(Me.nmList) OR Len(CStr(Me.nmList)) = 0 Then
Me.List=Null
End if
Т.е. если юзер обнулит текстовое поле, нам надо обнулить и список. Дерзайте.)
|
