[Dis]

Люди помогите организовать поиск.
Есть две таблицы (*.dbf). Нужно организовать поиск значений из поля первой таблицы
по полю во второй. Если значение найдено то нужно его присвоить другому полю первой таблицы и так пока первая таблица
не кончиться. Я в программировании пока чайник
меня хватило только на:
table1.active:=true;
table1.first;
while not table1.Eof do
begin
a:=table1.fieldbyname ('Поле1').asstring;

а дальше как, помогите пожалуйста.

[Yurk@]

Код:

Tabel1.Open;
Table2.Open;
while not Table1.Eof do
begin
if Table2.Locate('Pole1',Table1.FieldsByName('Pole1').asString,[])=True 
  then 
  begin
  Table1.Edit;
  Table1.FieldsByName('Pole2').asString:=Table2.FieldsByName('Pole1').asString;
  Table1.Post;
  end;
Table1.Next;
end;
Table1.Close;
Table2.Close;

[Dis]

Спасибо все заработало