[poli-smen]

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

А как исправить?

Пиши объявления в тех местах где компилятор ожидает объявления.
Другими словами если на Delphi писать программу по правилам Delphi, то такая ошибка не возникнет.

[BRESKON]

Сообщение от poli-smen

Пиши объявления в тех местах где компилятор ожидает объявления.
Другими словами если на Delphi писать программу по правилам Delphi, то такая ошибка не возникнет.

хорошо, щас разберусь, спасибо.

[BRESKON]

Сообщение от 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 показывается запись из поля(столбца)СуммаДок, а цыфра ровнялась строке этого поля.

[poli-smen]

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

А вот так корректно будет?:

Код:

.....
  if DataSet.Locate('Фир_ID', DataSet.FieldByName('НазФирм').AsInteger, []) then
.....

Для получения большего опыта, я создал ещё один Едит, и подключил другие поля.Всё компилируется, но работает коряво, наверное из-за того что я не разобрался с полями.

Работает коряво потому что у тебя всё намешано. Сравни как у тебя написано и вот как эта же строка была написана у меня:

Код:

if Table1.Locate('id', DataSet.FieldByName('ПлатДок').AsInteger, []) then

У тебя должно быть 2 таблицы: DataSet - это основная, а Table1 - справочная, для подмены кода на строку в основной таблице.

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

Я уточнить: Получается что ID - что менять, Текст - на что менять? (Убедиться правильно ли я тебя понял). Мне нужно чтоб из поля(Столбца) Фир_ID, бралось данное из тойже строки что данное для Едит1 и менялось на Поле(Столбец) СуммаДок, согласно ID. Т.Е. если в поле Фир_ID данное равно 4 (или 1, или 12 неважно) в Едите2 показывается запись из поля(столбца)СуммаДок, а цыфра ровнялась строке этого поля.

Пробуй так:

Код:

if Table1.Locate('ID', DataSet.FieldByName('Фир_ID').AsInteger, []) then
begin
  Edit2.Text := Table1.FieldByName('СуммаДок').AsString;
end else
begin
  Edit2.Text := '???';
end;

[BRESKON]

Сначало данные для уточнения: У мну две таблицы "Платежи" и "Фирмы" Платежи соеденены через ADOTable1, а Фирмы через ADOTable2. В Платежах один столбец (гипотетически) Фир_ID, в Фирмах тоже один столбец Firm. Другими словами берётся данная из поля Фир_ID, меняется на данную из Firm (цыфра в Фир_ID равняется строке в поле Firm) и отображается в Edite2.

Сообщение от poli-smen

Пробуй так:

Код:

if Table1.Locate('ID', DataSet.FieldByName('Фир_ID').AsInteger, []) then
begin
  Edit2.Text := Table1.FieldByName('СуммаДок').AsString;
end else
begin
  Edit2.Text := '???';
end;

У меня получилось так:

Код:

if ADOTable2.Locate('Firm', DataSet.FieldByName('Фир_ID').AsString, []) then
begin
  Edit2.Text := ADOTable2.FieldByName('Firm').AsString;
end else
begin
  Edit2.Text := '???';
end;
end;

в Эдите2 отображаются ??? Может это из-за Русского текста в поле Firm?

А если записать так:

Код:

if DataSet.Locate('Фир_ID', ADOTable2.FieldByName('Firm').AsString, []) then
begin
  Edit2.Text := DataSet.FieldByName('Фир_ID').AsString;
end else
begin
  Edit2.Text := '???';
end;

Помимо ??? в Эдите2 выскакивает: Аргументы имеют неверный тип, выходит за пределы допустимого диапазона или вступают в конфликт друг другом.

[poli-smen]

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

Сначало данные для уточнения: У мну две таблицы "Платежи" и "Фирмы" Платежи соеденены через ADOTable1, а Фирмы через ADOTable2. В Платежах один столбец (гипотетически) Фир_ID, в Фирмах тоже один столбец Firm. Другими словами берётся данная из поля Фир_ID, меняется на данную из Firm (цыфра в Фир_ID равняется строке в поле Firm) и отображается в Edite2.

В таблице "Фирмы" (ADOTable2) должно быть минимум 2 поля (столбца):

1. "ID" - уникальный номер через который потом можно делать привязку в таблице "Платежи" и оно же указывается в поле "Фир_ID" у таблицы "Платежи"
2. "Firm" - строковое поле с названием фирмы

Тогда в обработчике событий ADOTable1AfterScroll получим такое:

Код:

if ADOTable2.Locate('ID', DataSet.FieldByName('Фир_ID').AsInteger, []) then
begin
  Edit2.Text := ADOTable2.FieldByName('Firm').AsString;
end else
begin
  Edit2.Text := '???';
end;

[BRESKON]

Сообщение от poli-smen

В таблице "Фирмы" (ADOTable2) должно быть минимум 2 поля (столбца):

1. "ID" - уникальный номер через который потом можно делать привязку в таблице "Платежи" и оно же указывается в поле "Фир_ID" у таблицы "Платежи"
2. "Firm" - строковое поле с названием фирмы

Тогда в обработчике событий ADOTable1AfterScroll получим такое:

Код:

if ADOTable2.Locate('ID', DataSet.FieldByName('Фир_ID').AsInteger, []) then
begin
  Edit2.Text := ADOTable2.FieldByName('Firm').AsString;
end else
begin
  Edit2.Text := '???';
end;

Ну-да всё заработало! Можно тему считать закрытой. Спасибо тебе за терпение и понимание.