Hi Romazan!
КАЖДОЕ условие храни отдельно - например заведи свойства в форме:
dStartDate, dEndDate, nType, cDepartment и т.д.
Эти свойства и заполняй из своих "фильтрующих контролов". Предусмотри также
возможность "снятия" условия - например если свойство содержит .NULL. -
значит данное условие не задействовано. По умолчанию именно NULL-ами и
заполни все свойства (если нет "сохранённого" условия, или не надо сразу
выставить какое-то "условие по умолчанию").
Сделай на форме метод - скажем GetCurrentFilter() - он и будет анализировать
эти свойства, и последовательно формировать строку с условием. Т.е. примерно
так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
LOCAL lcWhere
lcWhere = "1=1"
IF !ISNULL(This.dStartDate) AND !EMPTY(This.dStartDate)
lcWhere = m.lcWhere + " AND DTOS(dDate) >= [" + DTOS(This.dStartDate) +
"]"
ENDIF
IF !ISNULL(This.dEndDate) AND !EMPTY(This.dEndDate)
lcWhere = m.lcWhere + " AND DTOS(dDate) <= [" + DTOS(This.dEndDate) +
"]"
ENDIF
IF !ISNULL(This.nType)
lcWhere = m.lcWhere + " AND nType = " + LTRIM(STR(This.nType))
ENDIF
IF !ISNULL(This.cDepartment) AND !EMPTY(This.cDepartment)
lcWhere = m.lcWhere + " AND cDepartment LIKE [" + This.cDepartment +
"%]"
ENDIF
RETURN m.lcWhere
Также сделай кнопку "Применить фильтр" (можно конечно и автоматически это
делать - скажем по потере фокуса контейнером, в котором расположены контролы
задающие условие). При этом вызывай метод GetCurrentFilter - он даст тебе
полное условие.
И ещё - SET FILTER как таковой - есть большое зло - если примеяется на
большой таблице, при этом таблица отображается в гриде. Для подобных случаев
гораздо больше подходят представления, или прямые SQL запросы (но через
запрос нельзя напрямую редактировать таблицу, если это запрос к фоксовым
данным конечно).
Posted via ActualForum NNTP Server 1.3
