|
13 / 13 / 0
Регистрация: 14.08.2011
Сообщений: 62
|
|
Расчет по таблице16.10.2012, 20:54. Показов 1541. Ответов 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 должны быть оформлены в виде отдельных функций Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git
main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели
8ATzM_2aurI
|
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2.
Задача: запретить редактирование документа, если он открыт у другого пользователя.
/ / . . .
|
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои.
А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
|
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
kYBz3eJf3jQ
|
|
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
|
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
|
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора
Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2.
Задача: уведомлять пользователя, если. . .
|
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2.
Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
|