[poli-smen]

Сообщение от BRESKON

Вот что получилось (вернее сказать не получилось выдаёт Undeclared identifier: 'FieldByName'):

Код:

.....
procedure TPrintPD.TDBGridAfterScroll(DataSet: TDataSet);
begin
  case TDBGrid.FieldByName('ПлатДок').AsInteger of

    1: Edit1.Text := 'ДА';
    2: Edit1.Text := 'НЕТ';
    3: Edit1.Text := 'НЕЗНАЮ';
  else
    Edit1.Text := '???';
  end;
end;

end.

Это потому что у TDBGrid нет метода FieldByName и быть его там не должно (да ещё к тому же обращение идёт не к объекту сетки, а к классу).
Тебе нужно обращаться не к сетке, а к таблице - в данном случае это DataSet.
А ещё у TDBGrid события AfterScroll нету и быть не может.