Копирование записей между таблицами DBF

[ИВэТэшка]

Здраствуйте! В базе данных существуют две таблицы, с абсолютно одинаковыми полями (а именно, три поля: RECORD, OBJECT, ID_INSTR), в одну из них (1ую) записываются необходимые данные. Надо перенести эти данные в другую (2ую) таблицу, исключая повторяющиеся по двум полям записи. Поясняю... надо, как бы отфильтровать по полям: OBJECT и ID_INSTR, если существует несколько записей у которых, например OBJECT=1 и ID_INSTR=2, то во 2ую таблицу должна попасть только одна такая запись! Значение поля RECORD ни на что не влияет и просто копируется. Для большей наглядности, прикрепляю doc-ий док-нт

[Serge_Bliznykov]

а на чём (язык программирования/IDE/СУБД) Вы хотите получить реализацию?..
FoxPro устроит?

в сущности задача сводится к ОДНОМУ элементарному селекту:

select min(RECORD), OBJECT, ID_INSTR from Table1
group by OBJECT, ID_INSTR into table Table2

[ИВэТэшка]

язык программирования делфи. А можно как-нибудь без запросов сделать?

[Serge_Bliznykov]

А можно как-нибудь без запросов сделать?

разумеется можно. сделать можно и множеством способов. я только не понимаю, зачем из программы, которая займёт 5-7 строк делать монстра с сотней строк кода, да ещё и малоэффективным алгоритмом обработки?!
а чем Вам так запросы не нравятся?
Если собираетесь использовать Дельфи, то Вам нужно решить, как Вы собираетесь читать/писать DBF файлы (какие компоненты и технологию доступа к данным будете использовать)?
я бы лично сделал через ADO + TDBF (впрочем, это не аксиома, тут можно и поспорить )
И ещё - это учебная задача, или Вам реально нужно выбрать данные для практических нужд?!

[ИВэТэшка]

Это не учебная задача, это часть диплома, из-за которой всё остановилось:-( Можно назвать это багом программы... ну т.е. собственно это исходная таблица в которой повторяются записи, далее из этой таблицы при помощи sql запросы происходит нужная выборка. Я хочу решить эту проблему, просто перекопировав таблицу, исключая повторяющиеся записи, а потом уже использовать sql.
Пробовал вот что-то подобное (ниже код)... но таблица просто копируется, записи остаются.
for i:=1 to table1.recordcount do
begin
for j:=1 to table2.recordcount do
begin
If Table3.Locate('OBJECT;ID_INSTR', VarArrayOF([i,j]),[])=true then
begin
Table3.Locate('OBJECT;ID_INSTR', VarArrayOF([i,j]),[])
table4.active:=true;
table4.insert;
table4.fieldbyname('OBJECT').AsInte ger := i;
table4.fieldbyname('ID_INSTR').AsIn teger := j;
table4.fieldbyname('RECORD').AsInte ger := table3.fieldbyname('RECORD').AsInte ger;
table4.post;
table4.active:=false;
end;
end;
end;