Какая версия FoxPro?

Сначала о той ошибке, которая стала причиной данной темы.

Дело в том, что у Grid есть такая особенность, что если произвести замену RecordSource, то произойдет сброс вообще ВСЕХ настроек Grid, в том числе и свойств и методов вложенных объектов (Column, Header, TextBox). Чтобы избежать этой неприятности надо ПЕРЕД изменением источника данных обязательно его обнулить. Т.е. в данном случае надо поступить так:

Событие FrmScreen.Container1.Command5.Click()

This.parent.Grid1.RecordSource =''

SELECT ... FROM ...

This.parent.Grid1.RecordSource ='tmprah'

В этом случае все созданные методы внутри Grid остануться работоспособными. Более того, остануться неизменными все настройки столбцов. Надо будет восставновить только ControlSource столбцов.

==========================================

Далее я хотел пройтись по найденным ошибкам, но на втором десятке понял, что это бессмысленное занятие. Поэтому попытаюсь описать не сами ошибки, а их причины.

Основная проблема в том, что Вы используете стиль программирования процедурного языка в объектно-ориентированной среде. В принципе, можно и так (программа ведь работает!). НО! Такой подход фактически связывает как программиста, так и пользователя по рукам и ногам. "Шаг вправо, шаг влево - побег!". Мало того, что сужается инструментарий средств как пользователя, так и программиста, но такую программу крайне сложно развивать (вносить улучшения, модификации).

Принципиальное отличие объектно-ориентированного подхода от процедурного заключается в том, что программа "собирается" из максимально независимых друг от друга объектов. Т.е., например, форме, по большому счету, должно быть абсолютно все-равно из какого места программы она была вызвана. У нее есть набор входных параметров и набор выходных параметров. Вот при помощи них и происходит "сборка" программы.

У Вас же явный "процедурный" стиль. Когда модули вызываются строго в определенном месте и, более того, они жестко завязаны на определеное состояние среды окружения (вместо того, чтобы формировать эту среду для каждого модуля в отдельности).

Еще один пласт ошибок связан со слабым знанием собственно языка программирования. Имею в виду команды и функции. Многие проблемы просто не возникли бы, если бы Вы знали, что существуют альтернативные пути решения (другие команды и функции), а также некоторые особенности работы тех или иных команд. В FoxPro фактически под каждую задачу есть как минимум 2...3 альтернативные команды. Настоятельно рекомендую при чтении описания к той или иной команде обащать внимание на разделы "Remarks" (особенности использования) и "See Also" (альтернативные решения)

Следующая проблема заключается в том, что Вашу программу практически невозможно отлаживать! Впрочем, в большой степени - это проблема "процедурного" стиля программирования. Но надо же было предусмотреть возможность запуска программы в режиме отладки. Нельзя же после каждой проверки заново запускать среду FoxPro. Для проверки, как именно была запущена среда FoxPro, можно использовать, например, _VFP.StartMode или какой-либо другой способ.

Интерфейс программы, мяго говоря, далек от совершенства. Можно, конечно, списать это на личные вкусы и предпочтения. Но ведь Вы делаете программу не для себя, а для кого-то другого. Вы уверены, что ваши "фокусы" с интерфейсом "обрадуют" конечного пользователя? Подробно, о стиле пользовательского интерфеса можно почитать в книге на сайте

http://www.uibook1.ru/

Еще советовал бы почитать размещенные здесь статьи по FoxPro специально для начинающих:

http://www.foxclub.ru/kb/index.php?sid=45732&aktion=anzeigen&rubrik=004

FM32YO aka KID
Все несколько проще. Как правило, в режиме отладки нужны несколько другие настройки. Вот в головном модуле и пишешь что-то вроде

IF _VFP.StartMode=0
* Запуск из среды FoxPro
ELSE
* Другой способ запуска (скорее всего EXE или APP)
ENDIF

Можно еще посмотреть расширение запущеной проги

IF PROGRAM(-1)=1 AND INLIST(UPPER(JustExt(SYS(16))),"EXE","APP")=.F.
* Если попали сюда - это значит, что данная программа запущена в режиме отладки
* т.е. как PRG или FXP. Значит, необходимо сделать кое-какие настройки
* Задание тестовых значений параметров для отладки
ELSE
ENDIF

Можно еще несколько вариантов такой проверки сделать.

Соответсвенно и настройки делаешь. Например, давать команду QUIT в режиме отладки - последнее дело. Что так и будешь перегружаться или комментарии ставить?

Ну, а на ошибке выскочит окно сообщения и можно сделать Suspend и перейти в окно Debugger, чтобы посмотреть в чем собственно ошибка.

Еще почитай описание о полезной команде ASSERT, факт работы которой определяется глобальной настройкой

SET ASSERT ON/OFF

Вячеслав Клепинин
Про GUI - это уже я "до кучи". Действительно, не принципиально. Пользователи и без меня от души "посоветуют"