[dima_10]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;

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

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