ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Опять про отлов ошибки (с куском кода)
10 сообщений из 10, страница 1 из 1
Опять про отлов ошибки (с куском кода)
    #33000991
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimy
Участник
Я думаю, это происходит при запуске главной программы приложения. Вот она:
SET DATE TO german
SET SAFETY off
SET PATH TO c:\sc\
SET ECHO OFF
SET TALK OFF
CLOSE all


CLOSE DATABASES all
CLOSE TABLES all
OPEN DATABASE c:\sc\data1
USE podfio IN 1 EXCLUSIVE



USE podraz IN 2 EXCLUSIVE




USE chet IN 3 EXCLUSIVE




USE mat IN 4 EXCLUSIVE



USE izm IN 5 EXCLUSIVE




USE jurin IN 6 EXCLUSIVE



USE jurnal IN 7 EXCLUSIVE



USE factura IN 8 EXCLUSIVE


USE orgs IN 9 EXCLUSIVE


USE oborot IN 10 EXCLUSIVE

USE combotable IN 11 EXCLUSIVE


USE jurmove IN 12 EXCLUSIVE


uSE nalmat IN 13 EXCLUSIVE

uSE spis IN 14 EXCLUSIVE

uSE jurspis IN 15 EXCLUSIVE

uSE frec IN 16 EXCLUSIVE

uSE fmat IN 17 EXCLUSIVE

uSE jurbeg IN 18 EXCLUSIVE

uSE jurout IN 19 EXCLUSIVE

USE kart IN 20 EXCLUSIVE

USE nakop IN 21 exclus

USE tempy IN 22 EXCLUSIVE

USE vedom IN 23 EXCLUSIVE

USE headers IN 24 EXCLUSIVE

PUBLIC per,donoridpodraz,donorpodraz,donorfio,donoridfio,recidpodraz,recpodraz,recidfio,recfio,lastcombo,obchet,obpodraz
per=0
PUBLIC lastrecord,lastidfact,pd,pf,nalmat_date,ord,nakopstart,nakopold
pd=-1
pf=-1

DO FORM c:\sc\form11
CLEAR EVENTS
...
Рейтинг: 0 / 0
06.04.2005, 16:28
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33000995
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimy
Участник
И как тут использовать on error? Неужели после каждой строчки вставлять?
...
Рейтинг: 0 / 0
06.04.2005, 16:29
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001018
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
DO FORM c:\sc\form11
CLEAR EVENTS

если это не описка это неправильно
DO FORM c:\sc\form11
READ EVENTS
...
Рейтинг: 0 / 0
06.04.2005, 16:37
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001025
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
SET PATH TO c:\sc\
DO FORM form11
READ EVENTS
...
Рейтинг: 0 / 0
06.04.2005, 16:41
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001033
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexFV
Участник
а еще открывать в конкретной рабочей области не есть гуд можно запутаться, лучше открывать в свободной 0 да с алиасом чтоб потом обращаться к таблице по нему (USE ... IN 0 ALIAS...)
...
Рейтинг: 0 / 0
06.04.2005, 16:43
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001068
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
угу типа
set exclusive on
if file('c:\sc\podfio.dbf') and !used('podfio')
use ('c:\sc\podfio.dbf') in 0
endif
...
Рейтинг: 0 / 0
06.04.2005, 16:54
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001078
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
а так как вы пишите такое впечатление все открываеться в одной области в итоге имеем одну открытую таблицу из всей базы данных если код не пропущен
...
Рейтинг: 0 / 0
06.04.2005, 16:56
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001302
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
leafа так как вы пишите такое впечатление все открываеться в одной области в итоге имеем одну открытую таблицу из всей базы данных если код не пропущен
Если писать
Код: plaintext
1.
2.
3.
USE ... IN  1 
USE ... IN  2 
...............
USE ... IN  100
то таблицы будут открыты все, но текущая область останется 1-ой...

P.S. А нельзя ли "оформлять" мысли меньшим количеством постов? Please!
...
Рейтинг: 0 / 0
06.04.2005, 18:12
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001327
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimy
Участник
to leaf
Конечно, там стоит read events (это я ошибся, когда сообщение писал)
А как все таки быть с on error (так, на будущее)
...
Рейтинг: 0 / 0
06.04.2005, 18:21
| Ответить | Цитировать | Написать  
Опять про отлов ошибки (с куском кода)
    #33001368
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
&&включить обработчик
ON ERROR DO obrob_error_kovpl WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )

a = '1' + 1

on error &&выключить обработчик

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure obrob_error_kovpl &&  у меня эт прг-файл
Param kod_oshibki, kakai_messaga, kakai_messaga1, gde, my_line
SET DELETED ON

do case
      case kod_oshibki =  1 
          messagebox('Привет')
          Return
      case kod_oshibki =  2 
          messagebox('Пока')
          Return
...
      otherw
          messagebox('Вылетаю из системы')
          clear events
          Quit
endcase

Желаю удачи...
...
Рейтинг: 0 / 0
06.04.2005, 18:43
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Опять про отлов ошибки (с куском кода)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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