Всем привет!

Вот такой вопрос. Есть форма с гридом. Есть Лоад формы.
В нем -
thisForm.Caption = "Кол-во записей " + transform(reccount())
_screen.ActiveForm.refresh

Все хорошо. На форме несколько кнопок с реализацией фильтров. После отработки каждой такая же запись
thisForm.Caption = "Кол-во записей " + transform(reccount())
_screen.ActiveForm.refresh

Но на форме остается значение, которое было при входе в форму.
Где косячок-с?

И в чем прикол?
Reccount() считает ВСЕ записи? Но я пробовал вместо этого делать после отработки кнопки так:

set filter to ...
go top
count to kol_zap
thisForm.Caption = "Кол-во записей " + str(kol_zap,4,0)

Результат тот же...

Sergey Sizov. Reccount() считает ВСЕ записи?
Показывает(не считает) количество записей в таблице. Set filter операций над данными не производит. Почему должно было поменяться количесвто записей в таблице?

А... Я-то грешным делом думал, что COUNT подсчитывает только "видимые" записи.
И как эту задачку тогда проще решить?

АлексейОметод load исполняется только один раз при загрузке формы
StandDНо я пробовал вместо этого делать после отработки кнопки так:
set filter to ...
go top
count to kol_zap
thisForm.Caption = "Кол-во записей " + str(kol_zap,4,0)

Результат тот же...

этот вариант будет правильней,
а не работает может из-за фильтра,
он действительно что-то фильтрует и отличатся от начального?

Да! Причем в гриде все действительно меняется, записи - от 5 до 20000. Грид обновляется, а в заголовке - та же цифра...

Да нет... RECCOUNT вообще в проекте больше не встречается (убрал)

Нашел зацепку. Убрал из Лоада Caption. И увидел, что после нажатия кнопок с фильтрами заголовок формы ВООБЩЕ НЕ МЕНЯЕТСЯ!

В клике кнопки прописано:

set filter to doc="12345"
go top
count to kol_zap
thisForm.Caption = "Кол-во записей " + str(kol_zap,4,0)
_screen.ActiveForm.refresh

Но не работает!

PaulWist StandD
Но не работает!

Не верю


Гадом буду...

Sergey Sizov. авторthisForm.Caption = "Кол-во записей " + str(kol_zap,4,0)
_screen.ActiveForm.refresh
На чем основана уверенность, текущая форма и _screen.ActiveForm - одно и то же? Почему обновляется не thisform?

Заменил _screen.ActiveForm.refresh на thisform.refresh

Все по-прежнему, только грид обновляется после клика по нему... ;-((

PaulWist
Запусти пример

Работает, блин. А у меня нет! Может, пятница, вечер, - пора сваливать?

Dima TИ в твоем случае лучше использовать не SET FILTER, а представление или курсор-адаптер (там reccount() так как тебе надо работать будет) т.к. этим своим подсчетом ты все плюсы SET FILTER к нулю сводишь.

В-общем-то SET FILTER мне нужен для обновления Грида...
Но дело не в этом.
Проблема в том, что НЕ РАБОТАЕТ thisForm.Caption !!!

Dima T StandD...
Проблема в том, что НЕ РАБОТАЕТ thisForm.Caption !!! У всех работает, а у него вдруг не работает

Ищи чем обратно перезаписывается или почему эта строка не выполняется. Поставь MessageBox() после thisForm.Caption = ... и смотри что творится.

PS Хотя отладчиком удобней.

Message поставил, отрабатывает нормально кол-во, а заголовок не обновляется

Dima T StandDВ-общем-то SET FILTER мне нужен для обновления Грида...
Преимущества SET FILTER перед представлением (или КА) в том что не делается полная выборка, т.е. грид перебирает записи пока экран не заполнит, и останавливается. А при использовании COUNT ты заставляешь сделать перебор всех записей и проверку их на соответствие фильтру, что по времени сопоставимо с выборкой в курсор.

Да, верно. Теперь буду использовать. Спасибо!

Все, ребята... Всем спасибо за участие. Видимо, действительно, пятница, конец дня...
Отваливаю. Завтра высплюсь и разберусь. О косяке доложу сообществу.

Dima TА у меня меняется. Смотри файлик

Ну хоть башкой об стенку...



У меня:

SET FILTER TO doc="12345"
GO top
thisform.grid1.Refresh (добавил экспериментируя)
COUNT TO kolzap
GO top
thisForm.Caption = "Кол-во записей -" + str(kolzap,5,0)
_screen.ActiveForm.refresh



У Вас:

thisform.caption = 'Çàãîëîâîê 1'
MessageBox('Ïàóçà')
thisform.caption = 'Çàãîëîâîê 2'
работает!


Но у меня не работает!!!!

Dima T StandDНо у меня не работает!!!!
Иди пивка выпей, выспись, и все заработает

Думаю, пивом не стоит после такого ограничиваться!
Спокойных выходных всем.

Ну вот, "выпью водки - разойдусь, подумал Ипполит Матвеевич...".

Нашел в чем было кисло. Оказывается, часть кнопок на форме отрабатывает правильно, а часть - нет. Раскопал в чем, наверно, дело.
Как бы обойти?
Дело в том, что в кликах неработающих кнопок на самом деле есть маленький довесок. По клику кнопки форма закрывается, обновляется таблица грида, фильтруется и форма открывается заново с обновленным таким ообразом гридом. Зачем так - не знаю, не мое произведение.
Дословно в клике так:


select 1
_screen.ActiveForm.release()


DO obnovc - закрытие таблицы, копирование новой,открытие, фильтрация и открытие формы

select 1
COUNT TO kolzap
GO top

thisForm.Caption = "ЗАПИСИ ПО ЗАДАННОМУ ФИЛЬТРУ - " + STR(kolzap,5,0)
_screen.ActiveForm.refresh

Dima TВероятней всего в Init() формы дописывать надо.
Если _screen.ActiveForm.release() относится к текущей форме, то thisForm.Caption = ... никто никогда не увидит, т.к. эта форма закроется.

В init проставлял, ничего... _screen.ActiveForm.release() закрывает эту форму, но в do... эта форма открывается и становится текущей.
да ладно, грохну все и по новой. Больше копаться не буду.