• Откуда: Пермь
  • На форуме с 12 апреля 2009г.
  • Сообщений: 102
  • Спасибо: 0

Тема: Подсчёт количества объектов в выборке

Собственно сабж.

Как это сделать?    :rolleyes:

  • На форуме с 6 августа 2008г.
  • Сообщений: 27
  • Спасибо: 0

Re: Подсчёт количества объектов в выборке

Query.Objects.Count...

  • Откуда: Пермь
  • На форуме с 12 апреля 2009г.
  • Сообщений: 102
  • Спасибо: 0

Re: Подсчёт количества объектов в выборке

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

Где чего не так?

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Подсчёт количества объектов в выборке

А где этот код размещён ?
Разместите в Query_AfterExecute

Ответ от DeTrah (изменено: DeTrah, 11 июня 2009г. 05:19:44)

  • Откуда: Пермь
  • На форуме с 12 апреля 2009г.
  • Сообщений: 102
  • Спасибо: 0

Re: Подсчёт количества объектов в выборке

Разместил в Query_AfterExecute...

Выдает ошибку исполнения кода:

Требуется объект 'objs.Count'

Ответ от vorona (изменено: vorona, 11 июня 2009г. 05:51:47)

  • На форуме с 30 октября 2008г.
  • Сообщений: 91
  • Спасибо: 0

Re: Подсчёт количества объектов в выборке

DeTrah пишет:
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:

  • Откуда: Пермь
  • На форуме с 12 апреля 2009г.
  • Сообщений: 102
  • Спасибо: 0

Re: Подсчёт количества объектов в выборке

Set убрал - заработало.

Но скорость работы !??

900 объектов система считала секунд 30.

После чего выдала MsgBox, который закрыть удалось после нескольких десятков кликов по Ок.

  • Mishaf
  • Mishaf
  • Администратор
  • Откуда: tdmsforum.ru
  • На форуме с 7 марта 2007г.
  • Сообщений: 399
  • Спасибо: 6

Re: Подсчёт количества объектов в выборке

Все зависит от выборки.  ;)
Скрипт то должен отрабатывать практически мгновенно.

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Подсчёт количества объектов в выборке

Странно что вообще удалось закрыть... Обращение к Query в её же событии вызывает зацикливание. Воспользуйтесь Sheet.Objects.Count

  • На форуме с 20 марта 2007г.
  • Сообщений: 17
  • Спасибо: 0

Re: Подсчёт количества объектов в выборке

Каждое обращение к этой конструкции Query.Objects  запускает выборку на выполнение.
Со всеми вытекающими из этого последствиями, и с отработкой всех событий, как положенно.
Рекурсия - матушка получается... И страшные вещи в результате ))

  • Откуда: Город Пафосный
  • На форуме с 15 марта 2007г.
  • Сообщений: 279
  • Спасибо: 0

Re: Подсчёт количества объектов в выборке

Edhunter пишет:

А где этот код размещён ?
Разместите в Query_AfterExecute

неправда.
Можно вызывать откуда угодно.
Например создайте произвольную команду и напишите след. код:

msgbox thisapplication.queries("xxxxxx").objects.count