is not a valiad integer value - БД в Delphi

aesoem · 28.06.2008, 14:11

Здравствуйте, проблема в следующем:
На форме есть DBGrid1 в нем 4 поля (1-наименование, 2-кол-во,3-цена,4-итог) програма должна перемножить значение цены на кол-во товара и присвоить значение в поле итог, я делаю так...

Код:

ADOTable1Field.Value:=ADOTable1DSDesigner4.AsInteger*ADOTable1DSDesigner3.AsInteger;

Все работает только если в любом поле DBGrid1 изменить какое либо значение а если нажать так то вываливается ошибка:
is not a valiad integer value.

Баламут · 28.06.2008, 14:46

Для этого вычисляемые поля есть. В OnCalcFields пишешь свое Вычисляемое поле = ADOTable1DSDesigner4.AsInteger*ADOT able1DSDesigner3.AsInteger;

А вычисляемое поле создаешь по даблклику по своему ADOTable.

aesoem · 28.06.2008, 16:00

я знаю про это событие если я пропишу код там то вылитает эта же ошибка и ещё становится невозможным работать с программой так-как эта процедура вызывается и в 1 раз!

Баламут · 29.06.2008, 14:08

Приложи файлик с исходником к посту. Что-то так я не могу понять в чем собственно проблема.

aesoem · 29.06.2008, 14:23

Вот, скопируй базу из архива в корень диска C:\.

Теперь запускай и нажми на кнопку "ИТОГ" - будет ошибка!
Закрой и сного запусти программу измени любое значение в сетке (Хоть наименование) и нажми итог - все работает!!!

_Engine_ · 29.06.2008, 14:32

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1Field.Value:= ADOTable1DSDesigner4.AsInteger*ADOT able1DSDesigner3.AsInteger;
ADOTable1.Post;
end;

aesoem · 29.06.2008, 14:37

_Engine_
Спасиба, заработала!

aesoem · 29.06.2008, 14:44

а как переводится на русский

ADOTable1.Edit;

Баламут · 30.06.2008, 01:39

Цитата:

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

а как переводится на русский

ADOTable1.Edit;

Переводим набор данных в режим редактирования.

28.06.2008, 14:11	#1
aesoem Форумчанин Регистрация: 24.12.2007 Сообщений: 288	is not a valiad integer value Здравствуйте, проблема в следующем: На форме есть DBGrid1 в нем 4 поля (1-наименование, 2-кол-во,3-цена,4-итог) програма должна перемножить значение цены на кол-во товара и присвоить значение в поле итог, я делаю так... Код: `ADOTable1Field.Value:=ADOTable1DSDesigner4.AsInteger*ADOTable1DSDesigner3.AsInteger;` Все работает только если в любом поле DBGrid1 изменить какое либо значение а если нажать так то вываливается ошибка: is not a valiad integer value.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Из string в integer	MAKEDON	Помощь студентам	9	29.07.2008 15:38
Записать в Integer	Михаил Юрьевич	Общие вопросы Delphi	3	04.07.2008 17:11
integer, for, if в Pascal	boom99	Помощь студентам	3	12.11.2007 16:25
String и Integer	bek@rt	Общие вопросы Delphi	10	18.05.2007 19:02
Конвертация real > integer	Viteef	Общие вопросы Delphi	2	03.05.2007 18:45

28.06.2008, 14:46	#2
Баламут Баламучу слегка... Участник клуба Регистрация: 01.11.2006 Сообщений: 1,585	Для этого вычисляемые поля есть. В OnCalcFields пишешь свое Вычисляемое поле = ADOTable1DSDesigner4.AsInteger*ADOT able1DSDesigner3.AsInteger; А вычисляемое поле создаешь по даблклику по своему ADOTable.

28.06.2008, 16:00	#3
aesoem Форумчанин Регистрация: 24.12.2007 Сообщений: 288	я знаю про это событие если я пропишу код там то вылитает эта же ошибка и ещё становится невозможным работать с программой так-как эта процедура вызывается и в 1 раз!

29.06.2008, 14:08	#4
Баламут Баламучу слегка... Участник клуба Регистрация: 01.11.2006 Сообщений: 1,585	Приложи файлик с исходником к посту. Что-то так я не могу понять в чем собственно проблема.

29.06.2008, 14:32	#6
_Engine_ Форумчанин Регистрация: 29.06.2008 Сообщений: 603	procedure TForm1.Button1Click(Sender: TObject); begin ADOTable1.Edit; ADOTable1Field.Value:= ADOTable1DSDesigner4.AsInteger*ADOT able1DSDesigner3.AsInteger; ADOTable1.Post; end;

29.06.2008, 14:37	#7
aesoem Форумчанин Регистрация: 24.12.2007 Сообщений: 288	_Engine_ Спасиба, заработала!

29.06.2008, 14:44	#8
aesoem Форумчанин Регистрация: 24.12.2007 Сообщений: 288	а как переводится на русский ADOTable1.Edit;