ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
3 сообщений из 3, страница 1 из 1
Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
    #38293069
aH4ux-Mypag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aH4ux-Mypag
Гость
Мне дали лабораторную работу. Сделал все кроме меню, мне был дан исходник другого проекта, и на подобии его я написал свое. Оно работает, но есть пару ошибок, помогите их найти если не трудно. Я выкладываю только часть кода так как только там ошибки.
Сразу скажу в написании кода на FoxPro я практически ноль.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
***********Формы
procedure forms1
do case
case bar()=1
do form 'sotr'
ENDCASE

do case
case bar()=2
do form 'pasport_data'
ENDCASE

do case
case bar()=3
do form 'obraz_sotr'
ENDCASE

do case
case bar()=4
do form 'mesto_raboti'
ENDCASE

do case
case bar()=5
do form 'last_rabota'
ENDCASE
endc
RETURN

***********Отчеты
procedure reports1
do case
case bar()=1
do repor 'sotrudniki'

case bar()=2
REPORT FORM  'pasport_data' prev

case bar()=3
do repor 'obrazov_sotr'

case bar()=4
do repor 'mesto_raboti'

case bar()=5
do repor 'las_rabota'
ENDCASE
endc
RETURN
******************
...
Рейтинг: 0 / 0
10.06.2013, 18:03
| Ответить | Цитировать | Написать  
Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
    #38293076
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
aH4ux-MypagМне дали лабораторную работу. Сделал все кроме меню, мне был дан исходник другого проекта, и на подобии его я написал свое. Оно работает, но есть пару ошибок, помогите их найти если не трудно. Я выкладываю только часть кода так как только там ошибки.
Сразу скажу в написании кода на FoxPro я практически ноль.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
***********Формы
procedure forms1
do case
case bar()=1
   do form 'sotr'
case bar()=2
   do form 'pasport_data'
case bar()=3
   do form 'obraz_sotr'
case bar()=4
   do form 'mesto_raboti'
case bar()=5
   do form 'last_rabota'
ENDCASE

***********Отчеты
procedure reports1
do case
case bar()=1
   do repor 'sotrudniki'

case bar()=2
   REPORT FORM  'pasport_data' prev

case bar()=3
   do repor 'obrazov_sotr'

case bar()=4
   do repor 'mesto_raboti'

case bar()=5
   do repor 'las_rabota'
ENDCASE
******************


Видимо, так
...
Рейтинг: 0 / 0
10.06.2013, 18:10
| Ответить | Цитировать | Написать  
Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
    #38293155
aH4ux-Mypag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aH4ux-Mypag
Гость
IgorNG, все верно, спасибо за помощь.
...
Рейтинг: 0 / 0
10.06.2013, 19:21
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=41&tid=1583011]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 291ms
total:  428ms
созд. / загр.: 428ms
x
x
Закрыть


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