Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 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):
Польз. соглашение
созд. / загр.: 419ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1583011]:
 0ms
get settings:
 13ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 51ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 271ms
total:  419ms
x
x
Закрыть


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