[dima_10]

Помогите пожалуйста. есть две таблицы ostatki, potrebnost

таблицы ostatki, potrebnost
имеют поля (diametr, gost , ves). Нужно если diametr и gost в одной таблице равны diametr и gost в другой то ves из одной таблице должен вычитаться из другой и записыватся в поле itog. Вот текст. Подскажите ,что не так

Код:

procedure TForm1.Button2Click(Sender: TObject);

begin
form1.ADOtable1.first;
while form1.ADOtable1.Eof do
begin
if (ADOtable1diametr.Value=form1.ADOtable2diametr1.Value)and
 (ADOtable1gost.Value= ADOtable2gost1.Value) 
  then
 // ADOtable1rezult.Value:=ADOtable2ves1.Value-ADOtable1ves.Value  ;
  ADOtable1itog.Value:=ADOtable2ves1.Value - ADOtable1ves.Value;

form1.ADOtable1.next;
end;end;

Админ: Пользуемся тегами для оформления кода!

Спасибо за помощь