Цитата:
|
Сообщение от poli-smen
Пиши объявления в тех местах где компилятор ожидает объявления.
Другими словами если на Delphi писать программу по правилам Delphi, то такая ошибка не возникнет.
|
А вот так корректно будет?:
Код:
procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
begin
case DataSet.FieldByName('ПлатДок').AsInteger of
1: Edit1.Text := 'СЧЁТ';
2: Edit1.Text := 'СЧЁТ ФАКТУРА';
3: Edit1.Text := 'АКТ ВЫПОЛНЕННЫХ РАБОТ';
else
Edit1.Text := '???';
end;
begin
if DataSet.Locate('Фир_ID', DataSet.FieldByName('НазФирм').AsInteger, []) then
begin
Edit2.Text := DataSet.FieldByName('СуммаДок').AsString;
end else
begin
Edit2.Text := '???';
end;
end;
end;
Для получения большего опыта, я создал ещё один Едит, и подключил другие поля.Всё компилируется, но работает коряво, наверное из-за того что я не разобрался с полями.
Я уточнить: Получается что ID - что менять, Текст - на что менять? (Убедиться правильно ли я тебя понял). Мне нужно чтоб из поля(Столбца) Фир_ID, бралось данное из тойже строки что данное для Едит1 и менялось на Поле(Столбец) СуммаДок, согласно ID. Т.Е. если в поле Фир_ID данное равно 4 (или 1, или 12 неважно) в Едите2 показывается запись из поля(столбца)СуммаДок, а цыфра ровнялась строке этого поля.