Сложение в 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

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

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

Не по теме:

Слава Богу

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

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

	Сложение в DBGrid 19.02.2015, 11:22. Показов 2053. Ответов 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

Решение