Обработка ошибок

[Mitriy08]

procedure TDM.TTarifBeforeInsert(DataSet: TDataSet);
begin
kod:=DM.TTarif.RecordCount+1;
while DM.TTarif.Locate('KOD_T',kod,[]) do
begin
kod:=kod+1;
end;
end;

Не понимаю зачем такой изврат...учите sql
и ваша строка превратится примерно в

'select max(KOD_T)+1 from MyTable'

Это и будет ваш KOD_T, который будет вставляться...

[Liones]

Код:

'select max(KOD_T)+1 from MyTable'
я мож чего не поняла, но суть в том что мне не надо искать максимум, а надо найти свободный KOD_T

[Liones]

Спасибо, нужно было просто для себя подтвердить мысль, я об этом и думала