Stack Overflow

[Neeter]

Привожу сразу весь код обработчика

procedure TDataModule2.tb_OplataCalcFields(DataSet: TDataSet);
var
 i: integer;
 Cost, sum: integer;
begin
 sum := 0;
 if DataModule2.tb_Zvonki.RecordCount <> 0 then
 begin
  tb_Zvonki.First;
  for i := 0 to DataModule2.tb_Zvonki.RecordCount - 1 do
  begin
   Cost := Cost + DataModule2.int__ZvonkiВремя_разговорамин.Value;
   tb_Zvonki.Next;
  end;
  Cost := Cost * CostMin;

  tb_Oplata.First;      //На этой строчке и происходит ошибка (проверял отладчиком
  for i := 0 to tb_Oplata.RecordCount - 1 do
  begin
   sum := sum + int__OplataСумма_оплаты.Value;
   tb_Oplata.Next;
  end;

  if Cost > sum then
  begin
   int__OplataPereplateOrNedoplata.Value := Cost - sum;
   strngfld_OplataTypeOplata.Value := 'Переплата';
  end;
  if Cost < sum then
  begin
   int__OplataPereplateOrNedoplata.Value := sum - Cost;
   strngfld_OplataTypeOplata.Value := 'Недоплата';
  end;
  if Cost = sum then
  begin
   int__OplataPereplateOrNedoplata.Value := 0;
   strngfld_OplataTypeOplata.Value := 'Равно';
  end;
 end;
end;

Даже если оставить вот такой код:

procedure TDataModule2.tb_OplataCalcFields(DataSet: TDataSet);
begin
 tb_Oplata.First;
end;

то произойдет такая же ошибка.
В чем же дело?

[soleil@mmc]

ты пытаешься чота там вычислить в текущей строчке датасета и при этом еще листаешь этот самый датасет
ничего удивительного, что возникает такая ошибка

 tb_Oplata.First;      //На этой строчке и происходит ошибка (проверял отладчиком
  for i := 0 to tb_Oplata.RecordCount - 1 do
  begin
   sum := sum + int__OplataСумма_оплаты.Value;
   tb_Oplata.Next;
  end;

получай инфу для этого куска кода отдельным запросом - будет правильнее и быстрее

[Neeter]

Да я уже решил эту проблему. Правильно говорите. Как всегда осенило сразу же после задания вопроса. Отдельный запрос тут не нужен. Там по типу программы запрос не подходит.
Но все равно спасибо.