|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.12.2013, 20:13 | #1 |
Пользователь
Регистрация: 28.03.2013
Сообщений: 11
|
вычитание полей
помоготи пожалуйста! Существует 2 формы на каждой форме есть DBGRid, Table,DataSours. Первая табл склад. вторая подажи. Как сделать, чтобы когда вводишь данные в табл продажи (Form2) по нажатию кнопки сохранить вычислялось кол-во из первой таблицы (Form1)склада. Наименование товара у меня совпадает т к я сделал выпадающий список.
|
01.12.2013, 21:12 | #2 |
Пользователь
Регистрация: 28.03.2013
Сообщений: 11
|
помоготи пожалуйста! Существует 2 формы на каждой форме есть DBGRid, Table,DataSours. Первая табл склад. вторая подажи. Как сделать, чтобы когда вводишь данные в табл продажи (Form2) по нажатию кнопки сохранить вычислялось кол-во из первой таблицы (Form1)склада. Наименование товара у меня совпадает т к я сделал выпадающий список.
1. x:=Form2.Table1.FieldByName('Kol'). AsInteger; 2. y:=Form3.Table1.FieldByName('Kol'). AsInteger; 3. Form2.Table1.FieldByName('Kol').AsS tring:=IntToStr(x-y) ; выходит ошибка "Project Project1.exe raised exception class EDatabaseError with message `Table1 Dataset not in edit or insert mode` Process stopped." |
01.12.2013, 21:34 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Form2.Table1.append или Form2.Table1.edit перед внесением в таблицы, в зависимости от того что ты хочешь сделать.
I'm learning to live...
|
03.12.2013, 15:53 | #4 |
Пользователь
Регистрация: 28.03.2013
Сообщений: 11
|
Спасибо все получилось. Только как теперь сделать чтобы у всех записей вычитывалось кол-во, а то у меня только у первой вычитывается
1.if Form2.Table1.FieldByName('Name').te xt=Form3.Table1.FieldByName('Name') .text 2.then begin 3.Form2.Table1.edit; 4.x:=Form2.Table1.FieldByName('Kol' ).AsInteger; 5.y:=Form3.Table1.FieldByName('Kol' ).AsInteger; 6.Form2.Table1.FieldByName('Kol').A sString:=IntToStr(x-y) ; 7.Form2.table1.Post; end; |
03.12.2013, 15:53 | #5 | |
Пользователь
Регистрация: 28.03.2013
Сообщений: 11
|
Цитата:
1.if Form2.Table1.FieldByName('Name').te xt=Form3.Table1.FieldByName('Name') .text 2.then begin 3.Form2.Table1.edit; 4.x:=Form2.Table1.FieldByName('Kol' ).AsInteger; 5.y:=Form3.Table1.FieldByName('Kol' ).AsInteger; 6.Form2.Table1.FieldByName('Kol').A sString:=IntToStr(x-y) ; 7.Form2.table1.Post; end; |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ВЫЧИТАНИЕ ПОЛЕЙ ИЗ РАЗНЫХ БД | ggod | БД в Delphi | 14 | 06.05.2012 22:24 |
Вычитание полей с разных таблиц! | RSmile | Microsoft Office Access | 6 | 25.04.2010 13:54 |
При удалении записей значения полей с type:=Autoincrement (т.е+) в оставшихся полей не изменяются | kenta | БД в Delphi | 2 | 29.10.2009 08:28 |
Объеденение полей запроса в для отображения нескольких полей в одном списке | mrCreator | Microsoft Office Access | 3 | 08.08.2009 00:53 |
Вычитание | avnsanto | Microsoft Office Excel | 0 | 24.07.2009 02:33 |