Есть таблицы:
ТаблицаБанки
МФО Банк Адрес
300111 БанкА улицаА
300222 БанкБ улицаБ
ТаблицаАктивы
МФО Дата РазмерАктивов
300111 01.01.2009 100
300111 01.02.2009 150
300222 01.03.2009 200
300222 01.04.2009 250
Есть Форма, которая отображает поля из ТаблицаБанки.
На форме есть элементы "Кнопка", с помощью которых
двигаюсь по записям ТаблицаБанки.
На форме разместил элемент "Список" дал ему имя - СписокДат
-----------------------------------------------------
| Код |
Private Sub ВыбираемДату()
'--- из СписокДат выбраем дату
a = СписокДат.Value
If IsNull(a) Then
ПодписьДат.Caption = "Почему NULL?????"
Else
ПодписьДат.Caption = a
End If
End Sub
Private Sub Form_Current()
'--- для СписокДат формируем SQL запрос
m = ПолеМФО.Value
s = "SELECT Дата FROM ТаблицаАктивы WHERE МФО = " + Trim(Str(m)) + " ORDER BY 1 DESC;"
СписокДат.RowSource = s
ВыбираемДату
End Sub
Private Sub СписокДат_AfterUpdate()
ВыбираемДату
End Sub
|
Когда я запускаю форму
происходит событие Form_Current,
которое формирует запрос и вызывает мою процедуру ВыбираемДату
в этой процедуре СписокДат.Value=NULL. ПОЧЕМУ?????
Ведь визуально в СписокДат я вижу даты.
Когда в СписокДат выбираю дату,
происходит событие AfterUpdate, которое вызывает мою процедуру ВыбираемДату
и в этом случае СписокДат.Value = выбранной дате!!!!! (как и должно быть)
Когда двигаюсь по записям ТаблицаБанки с помощью кнопок "Вперед", "Назад"
тоже происходит событие Form_Current
и СписокДат.Value содержит старое значение!!!!!!!
Например, если мы были на первой записи
МФО = 300111, даты: 01.01.2009, 01.02.2009
СписокДат.Value = 01.01.2009
когда переходим на следующую запись
МФО = 300222, даты: 01.03.2009, 01.04.2009
СписокДат.Value не обновляется и по прежнему равно - 01.01.2009
Почему визуально видно в СписокДат новые значения
а при обращении к переменной она содержит старое значение?
|
)