VISUAL FOXPRO 5.0
**********************
ТАКАЯ ЗАДАЧА: НУЖНО ИЗ ТАБЛИЦЫ ВЫБРАТЬ КЛИЕНТОВ КОТОРЫЕ ПЛАТИЛИ
НАЛИЧНЫМИ (ДЛЯ НИХ СДЕЛАН "CHECKbox1" )
А ТАКЖЕ ПЕРЕЧИСЛЕНИЕМ (ДЛЯ НИХ ТОЖЕ СДЕЛАН "CHECKbox2" )
ЗНАЧЕНИЕ ДЛЯ "CHECKBOX" .F. ИЛИ .T.
ЕСЛИ ПОСТАВИТЬ ФЛАЖОК "CHECKBOX1" ТО ИДЁТ ПОИСК
КЛИЕНТОВ КОТОРЫЕ ПЛАТИЛИ НАЛИЧНЫМИ. ЕСЛИ "CHECKBOX2" ТО ПЕРЕЧИСЛЕНИЕМ
ЕСЛИ ОБА ФЛАЖКА ТО ВСЕХ КТО ПЛАТИЛ ПЕРЕЧИСЛЕНИЕМ И НАЛИЧНЫМИ
ПОИСК ДОЛЖЕН БЫТЬ ПО КНОПКЕ.
***********************************************
СТРУКТУРА ТАБЛИЦЫ: OPLATA.dbf
*****************************
ZAKAZ .......... (ЧИСЛОВОЙ)..................&& КОД ЗАКАЗА
FAMILIA......... (СИМВОЛЬНЫЙ)..............&& ФАМИЛИЯ
DAT.............. (ДАТА)..........................&& ДАТА ЗАКАЗА
NALICH.......... (ЛОГИЧЕСКИЙ)................&& НАЛИЧНЫЕ
PERECH......... (ЛОГИЧЕСКИЙ)............... && ПЕРЕЧИСЛЕНИЕ
******************************************
my_where= ""
if CHECKbox1.value=1 then
my_where="NALICH=.t. "
if CHECKbox2.value=1 then
my_where=my_where+" and PERECH=.t. "
else
if CHECKbox2.value=1 then
my_where="PERECH=.t."
else
my_find.enable=.f. ' КНОПКА ПОИСКА НЕДОСТУПНА
end if
end if
select familia from oplata WHERE my_where
Решение основано на том факте, что в FoxPro есть такая вещь, как макроподстановка. Т.е. предварительно формируется условие отбора записей, а потом запускается запрос с ранее сформированным условием.
LOCAL lcFilter && эта переменная и будет содержать условие отбора
lcFilter=".T." && фиктивное значение выполняет 2 функции
* 1 - облегчает формирование строки-условия
* 2 - используется, если вообще не задано ни одного условия отбора
* Дополняю условие для отбора наличных
IF ThisForm.CheckBox1.Value=.T.
lcFilter=m.lcFilter+" and NALICH=.T."
ENDIF
* Дополняю условие для отбора по перечислению
IF ThisForm.CheckBox2.Value=.T.
lcFilter=m.lcFilter+" and PERECH=.T."
ENDIF
* Собственно выполняю запрос
SELECT * FROM Oplata WHERE &lcFilter
Только следует иметь в виду, что данный фильтр сформирован исходя из предположения, что если выбраны оба флажка, то отбираются те клиенты которые платили одновременно и наличными и по перечислению. Если по условию задачи в этом случае нужно ИЛИ, то необходимо соответсвенно скорректировать фильтр.
А МОЖНО ЛИ ИЗ ФИЛЬТРА КОТОРЫЙ ПОЛУЧИЛСЯ СКОПИРОВАТЬ ДАННЫЕ
ВО ВРЕМЕНУЮ ТАБЛИЦУ.
Я ДЕЛАЮ IN TO TABLE TEMP.DBF ЭТО КОПИРОВАНИЕ ИДЁТ СЕКУНДЫ 4
ФИЛЬТР ВРОДЕ ПОЛУЧАЕТСЯ С 10 СТРОКАМИ (изначально таблица маленькая
фильтр работает мгновенно, а копирование во временную идет долго)
КАК МОЖНО СДЕЛАТЬ ЭТО КОПИРОВАНИЕ ВО ВРЕМЕННУЮ ТАБЛИЦУ .
дополнение
ошибочка я делаю copy to temp.dbf
а копирование идет долго потому что у меня в таблице поля GENERAL
с фотографиями.
всё получилось спасибо всем
