Помогите пожалуйста. есть две таблицы 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;
Админ: Пользуемся тегами для оформления кода!
Спасибо за помощь