ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите организовать проход по курсору
7 сообщений из 7, страница 1 из 1
Помогите организовать проход по курсору
    #37227127
rekki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rekki
Гость
Помогите организовать проход по курсору, есть курсор с данными о родственниках (допустим 4 записи) в одном из полей указано сын или дочь или муж или жена. Нужно в зависимости от этих значений выводить в разные поля формы. Функцию EOF(), не смог применить, мб она только для таблиц.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
thisform.pageframe1.Page5.Text1.Value = ALLTRIM(STR(cur5.tab_no))
thisform.pageframe1.Page5.Text2.Value = ALLTRIM(cur5.semein)
thisform.pageframe1.Page5.Text3.Value = ALLTRIM(cur1.fio)
thisform.pageframe1.Page5.Image2.Picture = cur1.photo
IF !EOF()
IF cur5.rodstvo="Муж" OR cur5.rodstvo="Жена"
thisform.pageframe1.Page5.Text4.Value = ALLTRIM(cur5.fio_person)
thisform.pageframe1.Page5.Text5.Value = ALLTRIM(DTOC(cur5.date_birth))
ELSE
IF cur5.rodstvo="Сын OR cur5.rodstvo="Дочь"
IF LENC(thisform.pageframe1.Page5.Text6.Value)> 0 
thisform.pageframe1.Page5.Text8.Value = ALLTRIM(cur5.fio_person)
thisform.pageframe1.Page5.Text9.Value = ALLTRIM(DTOC(cur5.date_birth))
ELSE
thisform.pageframe1.Page5.Text6.Value = ALLTRIM(cur5.fio_person)
thisform.pageframe1.Page5.Text7.Value = ALLTRIM(DTOC(cur5.date_birth)) 
......
SKIP  1 
ENDIF
ENDIF
ENDIF
ну и так далее

Вобщем нужно пройти по всем записям курсора. Подскажите может функцию аналогичную EOF() только применимую к курсорам.
...
Рейтинг: 0 / 0
21.04.2011, 16:46
| Ответить | Цитировать | Написать  
Помогите организовать проход по курсору
    #37227142
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Цикл забыл сделать. Для перебора записей есть цикл SCAN
Примерно так
Код: plaintext
1.
2.
3.
sele cur5
scan
  ... тут обрабатываем очередную запись
endscan
...
Рейтинг: 0 / 0
21.04.2011, 16:53
| Ответить | Цитировать | Написать  
Помогите организовать проход по курсору
    #37227163
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Dima TЦикл забыл сделать. Для перебора записей есть цикл SCAN
Примерно так
Код: plaintext
1.
2.
3.
sele cur5
scan
  ... тут обрабатываем очередную запись
endscan
Ну и в чем проблема? Берете кусок из первого поста и вставляете вместо "тут обрабатываем очередную запись". Только skip оттуда уберите. И Eof() не вспоминайте всуе. И не придумывайте всякой чуши типа "Функцию EOF(), не смог применить, мб она только для таблиц." Курсор тоже таблица. И "функцию аналогичную EOF() только применимую к курсорам." никто не додумался придумывать.
...
Рейтинг: 0 / 0
21.04.2011, 17:03
| Ответить | Цитировать | Написать  
Помогите организовать проход по курсору
    #37227177
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Sergey SizovDima T...Ну и в чем проблема? ...
Это мне или топикстартеру адресовано?
...
Рейтинг: 0 / 0
21.04.2011, 17:11
| Ответить | Цитировать | Написать  
Помогите организовать проход по курсору
    #37227181
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Кстати, кусок из первого поста можно резко сократить. Не пугайтесь отсутствия кучи функций преобразования. Они не нужны если правильно указать в текстбоксах тип значения. Для чиловых в свойство value надо поместить 0, для даты - {}. Для текстбоксов, в которые будут вводиться строки надо указать свойство format = 'T'.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
with thisform.pageframe1.Page5
    .Text1.Value = cur5.tab_no && если это поле укажите в качестве ContolSource для .Text1, то это присвоение можно не делать, сам сделается. Это же относится и к трем следующим строчкам 
    .Text2.Value = cur5.semein
    .Text3.Value = cur1.fio
    .Image2.Picture = cur1.photo
  IF !EOF()
    IF cur5.rodstvo="Муж" OR cur5.rodstvo="Жена"
      .Text4.Value = cur5.fio_person
      .Text5.Value = cur5.date_birth
    ELSE
      IF cur5.rodstvo="Сын OR cur5.rodstvo="Дочь"
        IF LENC(.Text6.Value)> 0 
          .Text8.Value = cur5.fio_person
          .Text9.Value = cur5.date_birth
        ELSE
          .Text6.Value = cur5.fio_person
          .Text7.Value = cur5.date_birth 
......
       ENDIF
     ENDIF
   ENDIF
ENDWITH
...
Рейтинг: 0 / 0
21.04.2011, 17:13
| Ответить | Цитировать | Написать  
Помогите организовать проход по курсору
    #37227182
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Dima TSergey Sizovпропущено...
Ну и в чем проблема? ...
Это мне или топикстартеру адресовано?Прошу пардону, конечно же стартеру.
...
Рейтинг: 0 / 0
21.04.2011, 17:13
| Ответить | Цитировать | Написать  
Помогите организовать проход по курсору
    #37227280
rekki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rekki
Гость
Спасибо огромное.
...
Рейтинг: 0 / 0
21.04.2011, 17:52
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите организовать проход по курсору
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37227142&tid=1584413]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 15ms
total:  163ms
созд. / загр.: 163ms
x
x
Закрыть


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