Программы "Простой софт" www.prostoysoft.ru

ВНИМАНИЕ! РЕКЛАМНЫЕ СООБЩЕНИЯ И ГИПЕРССЫЛКИ В ФОРУМЕ ЗАПРЕЩЕНЫ (посты удаляются автоматически часто с пользователем)
Текущее время: 18.08.2019 05:43

Часовой пояс: UTC + 4 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
СообщениеДобавлено: 05.10.2017 14:22 
Не в сети

Зарегистрирован: 05.10.2017 11:08
Сообщения: 5
Подскажите, необходимо в MsgBox вывести подсчитанные данные не из всей таблицы
Вложение:
Комментарий к файлу: Вся таблица, считает верно!
все.jpg
все.jpg [ 397.6 КБ | Просмотров: 7074 ]
, а только из таблицы с примененными фильтрами
Вложение:
Комментарий к файлу: Отфильтрованная таблица, считает не верно!
отфильтр.jpg
отфильтр.jpg [ 325.29 КБ | Просмотров: 7074 ]


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 05.10.2017 14:45 
Не в сети

Зарегистрирован: 05.10.2017 11:08
Сообщения: 5
Текущий код, который считает все записи таблицы
Код:
Dim strSQLInd, strSQLGrup, strSQLZan, iCountInd, iCountGrup, iCountZan, iCountSum
strSQLInd="SELECT COUNT(*) FROM tblSchedule2 WHERE(Service='Консультация')  AND (Absent=False)AND (NomPool='Инд.занятие' OR NomPool='С бортика');"
iCountInd = ExecuteSQL(strSQLInd)
strSQLGrup="SELECT COUNT(*) FROM tblSchedule2 WHERE (Service='Консультация')  AND (Absent=False) AND (NomPool='Груп.занятие');"
iCountGrup = ExecuteSQL(strSQLGrup)
strSQLZan="SELECT COUNT(*) FROM tblSchedule2 WHERE (Service <> 'Консультация')  AND (Absent=False);"
iCountZan = ExecuteSQL(strSQLZan)
iCountSum = iCountInd + iCountGrup + iCountZan
MsgBox ("Конс.индивидульных:" & chr(9) &  iCountInd & chr(13) & "Конс.групповых:" & chr(9) & chr(9) & iCountGrup & chr(13) & "Занятий:" & chr(9) & chr(9) & chr(9) &  iCountZan & chr(13) & "Всего:" & chr(9) & chr(9) & chr(9) &  iCountSum, 0, "Количество услуг")


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 05.10.2017 16:51 
Не в сети

Зарегистрирован: 25.04.2012 10:09
Сообщения: 2146
Откуда: Жуковский, Московская область
Используйте внутреннюю переменную <FiltersWhere>

P.S. Все это есть в руководстве (скачать можно со страницы программы), впредь изучите сначала ее, прежде чем задавать вопрос на форуме.

_________________
90% ответов на ваши вопросы находятся в руководстве, разделах "Вопросы" и "Видео" на нашем сайте.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 4 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB