Вычисляемое поле в dbgride

[Анастас]

я сделала вычисляемое поле в dbgride, затем вызвала событие CalcFields компонента table и записала код, запускаю прогу и она автоматически подсчитывает поля в dbgride, а мне надо чтобы при нажатии кнопки подсчитывалось в dbgride...как вызвать в кнопке событие CalcFields????

[Drugnir]

Your_Dataset.Open на кнопку поставьте, и измените свойство Active на False, your_dataset. Либо просто поставьте поле как fkData, а на кнопку проведите вычисления.

[Анастас]

не поняла, это как

[mihali4]

Сообщение от Анастас

а мне надо чтобы при нажатии кнопки подсчитывалось в dbgride...как вызвать в кнопке событие CalcFields????

Поставьте свойство AutoCalcFields вашей таблицы в False по умолчанию.
А по событию нажатия кнопки сделайте примерно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
MyTable.AutoCalcFields:=True;
Application.ProcessMessages;
MyTable.AutoCalcFields:=False;
end;

[Drugnir]

Согласен с mihali4

Только AutoCalcFields выставляется в Dataset.

[Анастас]

сделала так, программа запускается, но при нажатии кнопки ничего не появляется...

а что это значит "Только AutoCalcFields выставляется в Dataset"?

[Drugnir]

Конечно, ведь

procedure TForm1.Button1Click(Sender: TObject);
begin
MyTable.AutoCalcFields:=True;
Application.ProcessMessages;
MyTable.AutoCalcFields:=False;
end;

Эта кнопка отключает, вычисляемые поля.
Свойство AutoCalcFields поставьте изначально в False. А на кнопку

procedure TForm1.Button1Click(Sender: TObject);
begin
MyTable.AutoCalcFields:=False;
Application.ProcessMessages;
MyTable.AutoCalcFields:=True;
end;

Сообщение от Анастас

а что это значит "Только AutoCalcFields выставляется в Dataset"?

У компоненты Dataset, свойство AutoCalcFields. А не у DBGrid.

[Анастас]

я так и сделала, но ничего не происходит.

[Drugnir]

Покажите код кнопки

[Анастас]

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

procedure TForm24.tb_detailsCalcFields(DataSet: TDataSet);
begin
if ComboBox1.Text='1'
then
tb_detailsAmortizaciya.Value:=(tb_detailsPrice.Value*25)/100;
begin
if
ComboBox1.Text='2'
then
tb_detailsAmortizaciya.Value:=(tb_detailsPrice.Value*25*1.5)/100;
end;
  end;

procedure TForm24.Button1Click(Sender: TObject);
begin
tb_details.AutoCalcFields:=False;
Application.ProcessMessages;
tb_details.AutoCalcFields:=true;

end;

Пора бы уже и прочесть правила раздела...
Там написано, как правильно нужно оформлять код.