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

VBScript работа с отфильтрованными данными таблицы
http://prostoysoft.ru/phpBB3/viewtopic.php?f=10&t=59036
Страница 1 из 1

Автор:  Ivan94 [ 05.10.2017 14:22 ]
Заголовок сообщения:  VBScript работа с отфильтрованными данными таблицы

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

Автор:  Ivan94 [ 05.10.2017 14:45 ]
Заголовок сообщения:  Re: VBScript работа с отфильтрованными данными таблицы

Текущий код, который считает все записи таблицы
Код:
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, "Количество услуг")

Автор:  OMEN [ 05.10.2017 16:51 ]
Заголовок сообщения:  Re: VBScript работа с отфильтрованными данными таблицы

Используйте внутреннюю переменную <FiltersWhere>

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

Страница 1 из 1 Часовой пояс: UTC + 4 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/