|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
Расчет по таблице16.10.2012, 20:54. Показов 1507. Ответов 14
Метки нет (Все метки)
Всем привет!
Ситуация такая. Мне необходимо сделать Раасчет по конкретным строкам. не по всем конечно. Код: void __fastcall TForm1::Button3Click(TObject *Sender) { Table3->First(); while(!Table3->Eof) { if (Table3Familiya->Text!= "Rukovoditel") // Для проверки Чтобы недавала Ошибку { DataSource3->DataSet->Edit(); if (Table3PlastikProc->Text=="") { DataSource3->DataSet->FieldByName("PlastikProc")->Value = StrToFloat(Form2->DBEdit2->Text); } DataSource3->DataSet->FieldByName("Summa")->Value = floor(SummaN); DataSource3->DataSet->FieldByName("Plastik")->Value = floor(Plastik); DataSource3->DataSet->FieldByName("Naruki")->Value = floor(Nalich); // } //Конец Проверки DataSource3->DataSet->Post(); Table3->Next(); } Table3->First(); } //--------------------------------------------------------------------------- Ошибку почему даёт Я знаю, дело в том что в ней добовляются пустые строки с именем Rukovoditel. Но как избежать чтобы программа Пустые строки пропускала и не делала по ним Расчет. Мне нужно если в поле записи содержиться значение Rukovoditel, то по этой строке Не делать расчет. А в остольных случаях делать. if (Table3Familiya->Text!= "Rukovoditel") { //Делать Расчёт } но он почему-то это не пропускает и даёт ошибку is not a valid floating point value. Как я могу сделать расчет вычислений по всем строкам Кроме поля в котором содержиться значение Rukovoditel.... Надеюсь изложил свою речь Полностью.
0
|
|
| 16.10.2012, 20:54 | |
|
Ответы с готовыми решениями:
14
Расчет в таблице Расчет PR по таблице. Расчет стипендии в таблице |
|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
| 17.10.2012, 14:10 [ТС] | |
|
вот я и думаю как сделать Проверку чтобы он пропускал Пустые строки...
и делал расчет. Разницы нету по Editam или по другому. Главное чтобы Программа Пропускала строки с именем Руководитель.... Добавлено через 9 минут Вот я и думаю как сделать чтобы расчет шел дальше, а пустые строки он пропускал. Где есть значение поля Rukovoditel.
0
|
|
|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
| 17.10.2012, 14:16 [ТС] | |
|
вот картинка
0
|
|
|
|
|
| 17.10.2012, 16:28 | |
|
Тебе надо проверить не пустоту поля Rukovoditel, а пустоту полей которые находятся с надписью Rukovoditel. Так что не путай
Добавлено через 4 минуты А именно проверить пустоту полей Коэффициент, Сумма, Удержание, Пластик всех сразу или какого-то одного поля?
1
|
|
|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
| 17.10.2012, 17:28 [ТС] | |
|
У строки в котором есть значение Rukovoditel- То по этой строки Нельзя делать расчёт.
Дело в том что Это строка Вставляется после расчёта Без разницы там пустые или не пустые строки. Она суммирует все солбцы. Например 5000 + 5000 + 2000.... и выводит сумму и Хозяин этой суммы Rukovoditel. Руководитель получает всю их суммму За них. Мне нужно сделать Расчёт по всем полям Кроме строки со столбцами у кого есть значение Rukovoditel.
0
|
|
|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
| 17.10.2012, 18:06 [ТС] | |
|
Такая проверка тоже не пропускает эту строку. Она начинает ее расчитывать и выдавать Ошибку.
0
|
|
|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
| 17.10.2012, 18:27 [ТС] | |
|
тоже самое дает
DataSource3->OnDataChange = NULL; Table3->First(); while(!Table3->Eof) { if(Table3->FieldByName("Familiya")->AsString !="Rukovoditel") { Summa = StrToFloat(Form2->DBEdit1->Text); SummaN = Summa*(0.01)*StrToFloat(Table3Koeficient->Text) - Table3Uderjeno->Value; Plastik = (Table3Summa->Value)*(0.01)*(Table3PlastikProc->Value); Nalich = SummaN - Plastik; DataSource3->DataSet->Edit(); // // DataSource3->DataSet->FieldByName("OtRChasi")->Value = StrToFloat(Edit2->Text); if (Table3PlastikProc->Text=="") { DataSource3->DataSet->FieldByName("PlastikProc")->Value = StrToFloat(Form2->DBEdit2->Text); } DataSource3->DataSet->FieldByName("Summa")->Value = floor(SummaN); DataSource3->DataSet->FieldByName("Plastik")->Value = floor(Plastik); DataSource3->DataSet->FieldByName("Naruki")->Value = floor(Nalich); } //Конец Проверки для старост // DataSource3->DataSet->Post(); Table3->Next(); } Table3->First(); DataSource3->OnDataChange = DataSource3->OnDataChange;
0
|
|
|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
| 18.10.2012, 13:58 [ТС] | |
|
Картинка.
0
|
|
|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
| 18.10.2012, 17:50 [ТС] | |
|
В object inspector? что-то я такого свойства найти немогу.
0
|
|
|
|
|
| 18.10.2012, 19:32 | |
|
Извини я перепутал это свойство есть в компоненте Query
Проверь свойство ReadOnly у компонента Table
1
|
|
| 18.10.2012, 19:32 | |
|
Помогаю со студенческими работами здесь
15
Сортировка в DataGridView и расчет по таблице Расчет в таблице Word 2013 Расчет Показателей производства в таблице (Подбор параметра,Поиск решения.) Расчет сумм в формуле и расчет xi должны быть оформлены в виде отдельных функций. Расчет сумм в формуле и расчет xi должны быть оформлены в виде отдельных функций Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
||||
|
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
|
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение.
И на уровне агентов добавится между грибами или бактериями взаимодействий.
До того я пробовал подход через многомерные массивы,. . .
|
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Сочетание глобально распределённой вычислительной мощности и инновационных. . .
|
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Налог на собак: https:/ / **********/ gallery/ V06K53e
Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf
Пост отсюда. . .
|
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop?
Ниже её машинный перевод.
После долгих разбирательств я наконец-то вернула себе. . .
|
|
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод
Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод.
Thinkpad X220 Tablet —. . .
|
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта
Симптом:
После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
|
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
|
Новый ноутбук
volvo 07.12.2025
Всем привет.
По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне:
Ryzen 5 7533HS
64 Gb DDR5
1Tb NVMe
16" Full HD Display
Win11 Pro
|
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
|