Шаг 19 - Birthday (Тоже самое без SQL)

В прошлом шаге мы заполнили список, используя SQL запрос. Можно ли сделать по-другому? Можно, установим фильтр. На инициализацию формы пишем:

public dToday
dToday = date()

thisform.PeopleList.RowSourceType = 2 && alias
use birthday alias birthday
set filter to month(date_)=month(dToday) and day(date_)=day(dToday)
thisform.PeopleList.RowSource = 'birthday'

Запускаем, смотрим, результат тот же:

19_1.gif (2310 b)

Вот и все, т.е. через фильтр проходят данные только соответствующие заданному условию. Снять фильтр можно так:

set filter to

Наверняка Вы зададитесь вопросом, почему в списке отобразилось нужное поле? Все просто - оно было в таблице первым.

Возможно, вариант с использованием фильтров Вам покажется лучше. Может быть, но лично мне больше нравится SQL.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А.