Тема: Подсчёт количества объектов в выборке
Собственно сабж.
Как это сделать? :rolleyes:
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы TDMS → Технический раздел → Программирование → Подсчёт количества объектов в выборке
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Собственно сабж.
Как это сделать? :rolleyes:
dim num_knig, myquery, objs Set myquery = ThisApplication.Queries("QUERY_kniga_all") Set objs = myquery.Objects Set num_knig = objs.Count msgbox num_knig
Например так?..
Хм, ругается: просит объект myquery
Где чего не так?
А где этот код размещён ?
Разместите в Query_AfterExecute
Разместил в Query_AfterExecute...
Выдает ошибку исполнения кода:
Требуется объект 'objs.Count'
dim num_knig, myquery, objs Set myquery = ThisApplication.Queries("QUERY_kniga_all") Set objs = myquery.Objects Set num_knig = objs.Count msgbox num_knigНапример так?..
Хм, ругается: просит объект myquery
Где чего не так?
Set num_knig = objs.Count - странная запись. Нужно SET в этой строчке убрать и будет счастье :blink:
Set убрал - заработало.
Но скорость работы !??
900 объектов система считала секунд 30.
После чего выдала MsgBox, который закрыть удалось после нескольких десятков кликов по Ок.
Все зависит от выборки. ;)
Скрипт то должен отрабатывать практически мгновенно.
Странно что вообще удалось закрыть... Обращение к Query в её же событии вызывает зацикливание. Воспользуйтесь Sheet.Objects.Count
Каждое обращение к этой конструкции Query.Objects запускает выборку на выполнение.
Со всеми вытекающими из этого последствиями, и с отработкой всех событий, как положенно.
Рекурсия - матушка получается... И страшные вещи в результате ))
А где этот код размещён ?
Разместите в Query_AfterExecute
неправда.
Можно вызывать откуда угодно.
Например создайте произвольную команду и напишите след. код:
msgbox thisapplication.queries("xxxxxx").objects.count
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы TDMS → Технический раздел → Программирование → Подсчёт количества объектов в выборке
Форум работает на PunBB, при поддержке Informer Technologies, Inc