|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
Здравствуйте. Я не знаю, что делаю не так. Две формы: одна с гридом в которой и надо искать, другая с полем и кнопочкой "Найти далее". Первый раз поиск срабатывает правильно, а при втором - форма поиска исчезает, хотя thisform.Refresh стоит, но я оказываюсь в форме гида. Этот поиск я использовала в поиске по дате и работает замечательно CONTINUE срабатывает и я могу нажимать "Найти далее", а тут форма закрывается и все до CONTINUE не доходит. PoiskN = "Май" IF thisform.priz1.Value =1 locate for ALLTRIM(mec)=P_PoiskN m.recno1 = RECNO() thisform.priz1.Value =2 IF NOT FOUND() =messagebox("Нет вообще") thisform.Release GO m.recno1 ELSE thisform.Parentform.grid1.column2.setfocus() ENDIF ELSE CONTINUE IF NOT FOUND() =messagebox("Больше нет") thisform.Release GO m.recno1 ELSE thisform.parentform.grid1.column2.setfocus() ЕNDIF ENDIF Thisform.command1.SetFocus thisform.Refresh ... |
|||
:
Нравится:
Не нравится:
|
|||
15.07.2009, 13:58 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
Предпоследний ENDIF написан через русское Е. ... |
|||
:
Нравится:
Не нравится:
|
|||
15.07.2009, 15:04 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
DagПредпоследний ENDIF написан через русское Е. точно.. я исправила, но все равно я выхожу в init гридовской формы, а поисковая форма исчезает. Может ее нужно какой-то особенной сделать? Чтоб она была всегда в режиме ожидания? Ничего не пойму, когда этот же код использую для пойска по дате в поле грида дат, все нормально, ищет все по очереди по нажатию "Найти далее" и никуда не исчезает. А тут поменяла только поле пойска и условие и что-то не то... ... |
|||
:
Нравится:
Не нравится:
|
|||
16.07.2009, 06:22 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
Включаем дебаггер, первой строчкой перед Вашим кодом пишем SET STEP ON и проверяем отработку кода по шагам. Все. ... |
|||
:
Нравится:
Не нравится:
|
|||
16.07.2009, 06:55 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
Dag_RomsВключаем дебаггер, первой строчкой перед Вашим кодом пишем SET STEP ON и проверяем отработку кода по шагам. Все. спасибо конечно, но я это уже 2 день делаю. Set step-ы в inite в самой кнопке, и при вызове и перво и второй формы. Везде. Сама не пойму в чем дело. Почему при "дате" работает нормально, а прошу найти по месяцам, первый попавший нашел и все "исчез", а следующем и речи нет. Что не так? CONTINUE при пойске дат работает же последовательно и все по очереди ищет... ??? ... |
|||
:
Нравится:
Не нравится:
|
|||
16.07.2009, 07:13 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
По хорошему будет лучше так : Local isSucces,lcTxt,recno1 m.recno1=RECNO() PoiskN = "Май" If Thisform.priz1.Value =1 Locate For UPPER(Alltrim(mec))=UPPER(P_PoiskN) Thisform.priz1.Value =2 isSucces=Found() lcTxt=Iif(isSucces=.T.,"","Нет вообще") Else Continue isSucces=Found() lcTxt=Iif(isSucces=.T.,"","Больше нет") Endif If isSucces=.T. Thisform.Parentform.grid1.column2.SetFocus() Thisform.command1.SetFocus Thisform.Refresh Else Go m.recno1 Thisform.Release Endif И обратите внимание на выделенную строку. ... |
|||
:
Нравится:
Не нравится:
|
|||
16.07.2009, 07:56 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
Сорри за предыдущий пост По хорошему будет лучше так : Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22.
... |
|||
:
Нравится:
Не нравится:
|
|||
16.07.2009, 08:00 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
homik, спасибо HOMIK, все хорошо работает, но только на 1 раз, потом форма исчезает. Refresh не помогает. Придется использовать фильтр. Отфильтрую все по указанному месяцу. Хотя тут не удобно использовать фильтр. Спасибо, в любом случае очень благодарна Вам - HOMIK! ... |
|||
:
Нравится:
Не нравится:
|
|||
16.07.2009, 08:13 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
Sara_gul, Он не исчезает, он стаёт за форму с гридом ... |
|||
:
Нравится:
Не нравится:
|
|||
17.07.2009, 11:35 |
|
поиск "Найти далее"
|
|||
---|---|---|---|
#18+
alextashk, Он - это форма с условием поиска ... |
|||
:
Нравится:
Не нравится:
|
|||
17.07.2009, 11:36 |
|
|
start [/forum/topic.php?fid=41&msg=36099799&tid=1586219]: |
0ms |
get settings: |
9ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
33ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
51ms |
get tp. blocked users: |
1ms |
others: | 15ms |
total: | 143ms |
0 / 0 |