Cannot modify a read-only dataset(таблицу сохранять не нужно)

[ayPinki]

вот такой у меня код, мне нужно увеличить поле Amount на то что мы введем - s(т.е. умножить на это число каждое значение стобца).
Код:

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
s:= strtoint(LabeledEdit1.text);
ReportQuery.Open;
IF reportquery.state<>dsinsert then
reportquery.edit;
ReportQuery.First;
while not ReportQuery.Eof do
begin
ReportQuery.FieldValues['amount']:=ReportQuery.FieldValues['amount']*s;
ReportQuery.Next;
end;
ReportQuery.Close;
ReportQuery.ExecSQL;
ReportQuery.Open;
end;

но у меня ругается на - Cannot modify a read-only dataset. вы верно знаете что это).
пишут что нужно использовать какието TSQLConnection+TSQLTable+TDataSetPr ovider+TClientDataSet+TDataSource. - но у нас не должно быть такого поидее(по программе не давали).
я юзаю просто датасоурс, тквери, дбгрид, без всякого удаленного доступа и тд. база тут же на компе(самый простой вариант).
маленькая оговорка - мне не нужно сохранять потом эту таблицу, просто показать.
подскажите, последний штришок остался и такая подстава)
p/s- ReadOnly := False; вот что пишут.

[eval]

ReportQuery.Close;
ReportQuery.ExecSQL;
ReportQuery.Open;

мошно задвинул

[ayPinki]

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

мошно задвинул

да, на подколы энергия всегда находится
вы бы хотябы сказали возможна ли такая модификация полей в Tquery.

[northener]

вот такой у меня код

Выбросить всё что между первым begin и последним end и написать код заново.

[eval]

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

[Streletz]

ReportQuery.Close;
ReportQuery.ExecSQL;
ReportQuery.Open; 

Эти две подчёркнутые строки поменять местами не пробовали?

[Аватар]

Та умножьте в запросе amount на то что нужно, константа ведь и нечего городить то, что не в состоянии реализовать. И вычисляемое поле можно в кверике сделать, как выше подсказывают.

таблицу сохранять не нужно

Ребят и на фиг там всякие ExecSQL?

[ayPinki]

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

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

либо зафигачить выдачу в мемо- поле, если выдача небольшая)) а подскажите как подключить скроллбар в мемо, он там есть?

[Аватар]

либо зафигачить выдачу в мемо- поле

Пипец, полный

[ayPinki]

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

Эти две подчёркнутые строки поменять местами не пробовали?

ругается(

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
s:= strtoint(LabeledEdit1.text);
ReportQuery.Open;
ReportQuery.ExecSQL;
ReportQuery.Close;
ReportQuery.First;
while  not  ReportQuery.Eof do
begin
 ReportQuery.FieldValues['amount']:=ReportQuery.FieldValues['amount']*s    ;
ReportQuery.next;

end;

end;