[s0Creator]

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

Да просто все.

типа как-то так:

И это все в событии Table1CalcFields?
- проход по всей таблице ( каждый шаг вызовет это же событие )
- столбец Sport в таблице не сортирован.
- когда программа захочет вычислить поле, выводить несколько сообщений вподряд.

В общем если упростить все добезобразия и получить то что вероятно хочет преподаватель, то:
mrtt - добавь еще одну TTable и настрой ее на туже таблицу базы ( но не создавай там вычисляемых полей )
и напиши так

Код:

procedure TMainF.Table1CalcFields(DataSet: TDataSet);
var
  Sport: string;
  Cnt: Integer;
begin
  Table2.Open;
  Table2.First;
  Sport := Table1Sport.AsString;
  Cnt := 0;
  while not Table2.EOF do
  begin
    if Table2Sport.AsString = Sport then
      Inc(Cnt);
    Table2.Next;
  end;
  Table2.Close;
  Table1Quantity.AsInteger := Cnt;
end;