Сложение в DBGrid

@{Дмитрий} · Регистрация: 20.04.2012

Студворк — интернет-сервис помощи студентам

В DBGrid одно поле и несколько строк. В строках хранятся числа. Как к числу в каждой строке прибавить число, например из Edit?

@Sasha · 20.02.2015, 12:50

Вот последний вариант

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
  ADOConnection1->Connected = true;
  ADOQuery1->CursorLocation = clUseServer;
  if (Edit1->Text.IsEmpty())
   {
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("select id_ts,id_sh, probeg from shini right join svod  on shini.zavod_nomer = svod.id_sh");
        ADOQuery1->Open();
    }
    else
    { // Если не пустой, то выберем все записи где номер договора *_*
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("select id_ts,id_sh, probeg from shini right join svod  on shini.zavod_nomer = svod.id_sh WHERE [id_ts] LIKE '"+Edit1->Text+"%';");
        ADOQuery1->Open();
        ADOQuery1->First();
        while(!ADOQuery1->Eof)
      {
       DataSource1->DataSet->Edit();
       DataSource1->DataSet->FieldByName("probeg")->AsInteger = DataSource1->DataSet->FieldByName("probeg")->AsInteger + StrToFloat(Edit2->Text);
       DataSource1->DataSet->Post();
       ADOQuery1->Next();
       Application->ProcessMessages();
      }
     }
 
 
}

@{Дмитрий} · 20.02.2015, 12:57 **[ТС]**

я не понимая почему, но у меня все равно пишет ошибку "ADOQuery1: Cannot perform this operation on an open dataset"

@{Дмитрий} · 20.02.2015, 13:00 **[ТС]**

вот посмотрите

@Sasha · 20.02.2015, 13:44

Вот опять подправил, если уже сейчас не получится, то тогда я не знаю что там у тебя за проблемы

@{Дмитрий} · 20.02.2015, 14:09 **[ТС]**

спасибо, в таком виде все работает

@Sasha · 20.02.2015, 14:14

Сообщение от {Дмитрий}

спасибо, в таком виде все работает

Не по теме:

Слава Богу

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@{Дмитрий} 2 / 2 / 2 Регистрация: 20.04.2012 Сообщений: 108

	Сложение в DBGrid 19.02.2015, 11:22. Показов 1988. Ответов 25 Метки нет (Все метки) В DBGrid одно поле и несколько строк. В строках хранятся числа. Как к числу в каждой строке прибавить число, например из Edit? 0

@{Дмитрий} 2 / 2 / 2 Регистрация: 20.04.2012 Сообщений: 108
	20.02.2015, 12:57 [ТС]
	я не понимая почему, но у меня все равно пишет ошибку "ADOQuery1: Cannot perform this operation on an open dataset" 0

@{Дмитрий} 2 / 2 / 2 Регистрация: 20.04.2012 Сообщений: 108
	20.02.2015, 14:09 [ТС]
	спасибо, в таком виде все работает 0

Опции темы

Сложение в DBGrid

Решение