powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ещё NAVIGATE !!! (for В. Клепенин)
4 сообщений из 29, страница 2 из 2
ещё NAVIGATE !!! (for В. Клепенин)
    #32535527
BeeTLe.ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
for В. Клепенин

в том то и проблема что FoxHelp отсутствует в наличии.

что касается кавычек то они есть в коде ,просто сообщение немного не провильно оформил.

не знаю может это из-за foxa (6-я версия), помимо той ошибки(.prg) он еще при построении exe-шника в .err-оре пишет :

Menu h:\program files\библиотека\библиотека13.05.2004\mn\biblmenu.mnx has the following errors:
Unknown EXECSCRIPT - Undefined

я немного изменил код:
Код: 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.
if !WEXIST("frmSotrAdd")
  use gcexepath+"tabls\vid.dbf"
  REPLACE nVid WITH  1 
  use
  glKeyVid2=.T.
  glKeyVid1=.F.
  gnVid= 1 
  goTime.refresh()
else  
  if !used("vid")       && если таблица не открыта                 
    use gcexepath+"tabls\vid.dbf"
    REPLACE nVid WITH  1 
    use
  else
    select vid
    REPLACE nVid WITH  1 
  endif
  glKeyVid2=.T.
  glKeyVid1=.F.
  gnVid= 1 
  goTime.refresh()
*****************************
    FOR EACH loFrm IN _vfp.Forms
      loFrm.Refresh()
    endFOR  
*****************************
endif


И ВСЁ ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!
ОГРОМНОЕ СПАСИБО ВАМ
Вячеслав Клепенин и Андрей Давыдов

А есть ли функция для поверки типа "открыта ли хоть какая нибудь форма"
вместо WEXIST()???

чтобы не писать:
Код: plaintext
if !WEXIST("sotr_edit") or !WEXIST("sotr_add") or !WEXIST("all_view") or .......

переменную loFrm в start.prg нужно обьявлять?
...
Рейтинг: 0 / 0
ещё NAVIGATE !!! (for В. Клепенин)
    #32535928
to Антон

> А есть ли функция для поверки типа "открыта ли хоть какая нибудь форма"

Можно посмотреть значение _Screen.FormCount. Содержит количество открытых форм. Если ни одна форма не открыта, то _Screen.FormCount = 0.

Функция ExecScript появилась только в VFP7.

Что касаемо FoxHelp - так:
1. Можно посмотреть на MSDN.microsoft.com
2. На vfp.narod.ru выложен русскоязычный HELP VFP 3-5
3. Где-то на narod.ru был сайт, на котором выложены FoxHelp'ы c 3 по 8.

Успехов!
...
Рейтинг: 0 / 0
ещё NAVIGATE !!! (for В. Клепенин)
    #32535946
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторГде-то на narod.ru был сайт, на котором выложены FoxHelp'ы c 3 по 8.

http://vfp.narod.ru/Briefcase/Briefcase.htm
...
Рейтинг: 0 / 0
ещё NAVIGATE !!! (for В. Клепенин)
    #32537784
BeeTLe.ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ещё раз
ОГРОМНОЕ СПАСИБО ВАМ
НАЧИНАЮЩИМУ МНЕ!!!*&),
...
Рейтинг: 0 / 0
4 сообщений из 29, страница 2 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ещё NAVIGATE !!! (for В. Клепенин)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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