Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ошибка, не правильно написал оператор Case. Помогите нейти ошибку. / 3 сообщений из 3, страница 1 из 1
10.06.2013, 18:03
    #38293069
aH4ux-Mypag
aH4ux-Mypag
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
Мне дали лабораторную работу. Сделал все кроме меню, мне был дан исходник другого проекта, и на подобии его я написал свое. Оно работает, но есть пару ошибок, помогите их найти если не трудно. Я выкладываю только часть кода так как только там ошибки.
Сразу скажу в написании кода на 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:10
    #38293076
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
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, 19:21
    #38293155
aH4ux-Mypag
aH4ux-Mypag
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка, не правильно написал оператор Case. Помогите нейти ошибку.
IgorNG, все верно, спасибо за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ошибка, не правильно написал оператор Case. Помогите нейти ошибку. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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