Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Grid
|
|||
|---|---|---|---|
|
#18+
Проблема с гридом... Если я перехожу с поля на другое поле мышью или нажатием ентер-а... то у меня происходит скачек на последнюю запись... Если вниз-вверх, то нормально... На валидате: If VAL(This.Text) # ThisFormset.Vot ThisFormset.Form1.Lockscreen = .T. my_poisk = iif(vse_resursi.samos,vse_resursi.shifr_pole,_CandDi(vse_resursi.shifr_pole,vse_resursi.shifr_pole)) my_vernut = vse_resursi.shifr_pole If vse_resursi.metka = "50" newrazrad = VAL(This.Text) if (thisformset.nparam = 3 and thisformset.iz_smeti) or ; thisformset.nparam = 1 or thisformset.nparam = 2 IF SEEK(my_poisk,'spistarset','kodcenrazr') sele tarif set filter to koef1 = spistarset.setka IF !SEEK(newrazrad,'tarif','razrad') repla koln With ThisFormset.Vot, kolf With ThisFormset.Vot in vse_resursi ELSE repla koln with This.Value, kolf With This.Value in vse_resursi ENDIF ENDIF ThisFormset.Rasch_vsego sele vse_resursi loca for vse_resursi.shifr_pole = _CandDi("2 ","2") or vse_resursi.shifr_pole = "2 " ThisFormset.FormBuild() else repla koln With ThisFormset.Vot, kolf With ThisFormset.Vot in vse_resursi Endif else ThisFormset.Rasch_vsego ThisFormset.FormBuild() endif IF !EMPTY(ALLTRIM(my_vernut)) sele vse_resursi loca for shifr_pole = my_vernut if !found() go top endif ENDIF ThisFormset.Form1.Lockscreen = .F. ThisFormset.Form1.Refresh Endif На ThisFormset.FormBuild переписываю источник грида: sele * from vse_resursi order by kdgroup,kdpodgr,shifr_pole into cursor vse_resursi_vrem *sele * from vse_resursi_vrem order by kdgroup,kdpodgr into cursor vse_resursi my_vernut = vse_resursi.shifr_pole sele vse_resursi zap sele vse_resursi_vrem scan scatter memvar sele vse_resursi append blank gather memvar repla naimr with vse_resursi_vrem.naimr, naimu with vse_resursi_vrem.naimu endscan If used('vse_resursi_vrem') sele vse_resursi_vrem use Endif ThisFormset.Form1.Grid1.RecordSource = 'vse_resursi' Почему не возвращает на прежнее место??? Хотя в конце валидейта стоит поиск прежнего... Он его находит... Но потом слет на последнюю запись... Активейт формы пустой... И как заставить вернуться??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.11.2003, 18:09 |
|
||
|
Grid
|
|||
|---|---|---|---|
|
#18+
блин читать как-то неудобно %-)б но у тя GO TOP стоит в условии IF !EMPTY(ALLTRIM(my_vernut)) соотв. если эта ботва не выполняеца, то никогда ты не станешь локировать данные, а указатель в EOF мог уйти выше по коду. Вопщем ч:е-та наверная тут копать нужна :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2003, 08:30 |
|
||
|
Grid
|
|||
|---|---|---|---|
|
#18+
Hel!Riser: После поиска больше ни че нет... Так почему оно вверх не уходит... И если пошагово бежать, то оно становится на нужное место... Только отладчик снимаю... Как шишь... Убегает в конец... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2003, 11:29 |
|
||
|
Grid
|
|||
|---|---|---|---|
|
#18+
По ходу кода, если loca for vse_resursi.shifr_pole = _CandDi("2 ","2") or vse_resursi.shifr_pole = "2 " ничего не найдет, то в итоге мы окажемся на Eof('vse_resursi'). После locate идет ThisFormset.FormBuild() , а там сразу my_vernut = vse_resursi.shifr_pole ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2003, 12:33 |
|
||
|
Grid
|
|||
|---|---|---|---|
|
#18+
если с отладчиком фс:Е пучком, тада попробуй перед исполнением этого кода снять фокус с грида. Он способен на многое, чтоб ему пусто было :)) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2003, 12:58 |
|
||
|
Grid
|
|||
|---|---|---|---|
|
#18+
Hel!Riser: если с отладчиком фс:Е пучком, тада попробуй перед исполнением этого кода снять фокус с грида. Он способен на многое, чтоб ему пусто было :)) Это все происходит на Валидате. СетФокус другому я передать не могу... Как снять фокус с Этого... что б не было ошибки... что при валидате фокус нельзя установить... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2003, 14:59 |
|
||
|
|

start [/forum/topic.php?fid=41&msg=32337685&tid=1597496]: |
0ms |
get settings: |
5ms |
get forum list: |
15ms |
check forum access: |
5ms |
check topic access: |
5ms |
track hit: |
49ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
| others: | 226ms |
| total: | 356ms |

| 0 / 0 |
