Руслан82первая таблица 1.dbf
id \ f \ i \ o \ god
вторая 2.dbf
id \ ndat \ kdat \ n pokupki
ndat начало даты
kdat конац даты
n pokupki номер покупки
выходит:

Если записи в 1.dbf повторяются то проверить повторную запись в 2.dbf
если она входит в диапазон дат то вывести её на экран
f \ i \ o \ god \ ndat \ kdat \ n pokupki

Имеется в виду, что одна из записей 1.dbf содержит данные ВСЕХ полей такие-же, как в какой-то другой записи 1.dbf ?

CLOSE DATABASES
LOCAL ARRAY intab(1)
CREATE CURSOR ResultCursor (fami C(10), imya C(10), otch C(10), ;
god N(4), date1 D(8), date2 D(8), npokup C(10))
USE tab1 IN 0
USE tab2 IN 0
SELECT tab2
INDEX on id TO tabi2
SELECT tab1
SET RELATION TO id INTO tab2
GO TOP IN tab1
SCAN
IF ASCAN(intab,id)=0
DIMENSION intab(ALEN(intab)+1)
intab(ALEN(intab))=id
ELSE
IF YEAR(tab2.date1)=tab1.god .and. YEAR(tab2.date2)=tab1.god
INSERT INTO ResultCursor (fami, imya, otch, god, date1, date2, npokup) ;
VALUES (tab1.fami, tab1.imya, tab1.otch, tab1.god, ;
tab2.date1, tab2.date2, tab2.npokup)
ENDIF
ENDIF
ENDSCAN
USE IN tab1
USE IN tab2
ERASE tabi2.idx
RELEASE intab
SELECT ResultCursor
GO TOP
BROWSE
CLOSE DATABASES
RETURN

Руслан82Пробую то что дали в пример VFP9
1 часть по поиску двойников код уже смастерил еле еле ! - его не нужно
И это радует, что не нужно. Чего тогда было разговор заводить ?

Руслан82
нужен SQL код
Выбрать все поля из таблицы 2 >начало даты и < конца даты (если начало следующей записи попадает в этот период вывод на экран)
Сразу так SQL понравился ? Может, для начала попробуете
SET FILTER TO DATE1>datebegin .AND. DATE1<dateend ?
А то "опять будет как вчера" :)

Руслан82Всем спасибо !!!
reware Спасибо за ответы
:) Впрос как это засунуть в VFP ?
написать код и сформировать ехе ? можно же просто к таблицам обращаться ???

Я не понял, форум вроде называется "FoxPro, Visual FoxPro", человек вроде отвечает, что чего-то "еле еле" умеет вставлять в VFP9, а теперь спрашивает, как приведенный здесь код вставить в программу... Вы адресом не ошиблись ?