powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск записи в grid
1 сообщений из 1, страница 1 из 1
Поиск записи в grid
    #34449271
glamis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть форма (Form1) на которой располагается grid. При клике на кнопку поиска активируется другая форма (Form2) Formset на которой располагается text для ввода ключа поиска grid для вывода результата поиска и кнопка для возврата в вызывающую форму. Теперь проблема: если нажать кнопку возврата то все получается: курсор позиционируется на выбраной записи в форме Form1, а вот если сделать DblClick в grid, то курсор сначала вроде позиционируется, но при возврате в Form1 возвращается на то же место что было до вызова поиска. Может кто подскажет в чем дело?

DblClick:
Thisform.command2.click

Command2.click:
__mykod=viborg.kod && код найденой записи из Cursor Viborg
Sele P6112
loca for kod == __mykod
Thisform.width=291
Thisform.height=69
=from_to(Thisform, Thisformset.form1,Thisformset.form1.grid1.column1)
** Form1.grid1.recordSource='P6112' для справки


from_to - процедура, которая скрывает текущую форму и передает управление в Thisformset.form1:
Para _from, _to, _obj, _visi
local __visi
_to.visible=.f. && так устойчивее работает в сочетании с модальными формами
__visi=Iif(para() < 4 or empt(_visi),.f.,_visi)
__visi=__visi or _from.name='Form1'
with _from
.visible=__visi
.enabled=.f.
.alwaysontop=.f.
Endw
With _to
.visible=.t.
.enabled=.t.
if ! _to.name='Form1'
.alwaysontop=.t.
endif
.refresh
If para() > 2 and type('_obj') = 'O'
_obj.setfocus
Endi
Endw

Еще раз в чем проблема: если явно нажать на Command2 то все работает, если же через DblClick то не работает. Причем когда происходит изменение размеров Form2 то на экране видно что курсор позиционируется на нужной записи.
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск записи в grid
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]