Вычисление по связям

[program123]

Есть 2 связные таблицы у которых есть поле Num, когда клацаем по первой таблице высвечиваются определенные данные во второй, при условии что в Num одинаковые значения. Вопрос: Нужно при удалении записи во второй таблице ADOTable2.Delete, чтобы в Первой таблице в поле Количество стало +1 именно в той строке где Num=Num. Помогите плз

[artemavd]

Количество стало +1 именно в той строке где Num=Num.

Не понял. Это как?

[program123]

в первой таблице 2 поля Num , Количество , и нужно чтобы в этом поле количество +1 значение было, т.е удалили из второй таблице в первую +1 добавилось

[mihali4]

procedure TForm1.Table2BeforeDelete(DataSet: TDataSet);
begin
Table1.Locate('Num',Table2.FieldByName('Num').Value,[]);
end;

procedure TForm1.Table2AfterDelete(DataSet: TDataSet);
begin
Table1.Edit;
Table1.FieldByName('Количество').Value:=Table1.FieldByName('Количество').Value+1;
Table1.Post;
end;

[program123]

mihali4, извините за беспокойство, но меня интересует вот что:

procedure TForm1.Table2BeforeDelete(DataSet: TDataSet);
begin
Table1.Locate('Num',Table2.FieldByName('Num').Value,[]);
end;

Удаляет из двух таблиц, а нужно чтобы из второй удаляло , а в первой таблице просто поле КОЛИЧЕСТВО увеличивалось на 1, т.е если во второй таблице строка где Num=4 то в первой таблице в той строчке где поле Num тоже равно 4 поле количество увеличивалось. извините если не понятно объясняю.

[mihali4]

Эти обработчики ничего не удаляют.
Первый - ставит курсор в первой таблице на запись, у которой Num равен Num во второй таблице. Просто выбирает нужную запись.
Второй - только после того, как вы удалили запись из второй таблицы, просто прибавляет единичку к количеству в первой таблице.

[program123]

всё работает, но не каждый раз, иногда пишет не может найти строку обновления. может надо обнулять. буду разбираться, спасибо за помощь