На этапе проектирования формы в дезайнере убедись, что у тебя стоит для

Grid.RecordSource=(None)

Причем это самое (None) должно быть выделено жирным шрифтом. Ни в коем случае не сбрасывай его по Reset At Default.

Сам запрос можно сделать и в Init-формы (до настройки параметров Grid). В данном случае это непринципиально.

Но вообще-то, проще сделать параметризированное Local View и не мучиться

НовичекМИзвините, пожалуйста, но фразу

Но вообще-то, проще сделать параметризированное Local View и не мучиться

не понимаю(новичек я в FOXpro) а пробел у меня есть.
Все поставила, но все тоже

Как сделать параметризированное Local View?

-) Открываешь свой проект (надеюсь, собственно файл проекта есть - это файлы pjx, pjt)
-) Переходишь на закладку Data
-) В отображенном там дереве устанавливаешь указатель на узел DataBase - MyBase - Local Views (здесь MyBase - это имя твоей базы данных)
-) Нажимаешь кнопку "New"
-) Для простоты (в качестве обучения) можешь воспользоваться визардом. Т.е. выбрать кнопку "View Wizard"
-) На первом шаге выбираешь таблицу и поля, которые должны попасть в результирующую выборку. В твоем случае это Spisa.imen, Spisa.datr
-) На втором шаге необходимо указать условия отбора (директива WHERE). В твоем случае выбираешь поле Spisa.datr, опреатор "equals", а в окошке Value пишешь "?tdDate" - разумеется без кавычек.
-) Третий шаг пропускаешь (у тебя нет сортировки)
-) На пятом шаге при нажатии кнопки Finish надо будет ввести имя твоего Local View, например, MyView

Теперь если вызовешь на модификацию твой Local View и посмотришь код SQL-запроса, то он будет выглядеть примерно так:

SELECT Spisa.imen, Spisa.datr ;
FROM MyBase!spisa ;
WHERE Spisa.datr = ?tdDate

Вопросительный знак говорит о том, что далее следует параметр, который необходимо заполнять непосредственно перед запуском Local View.

Теперь включаешь этот Local View в DataEnvironment твоей формы обязательно установив свойство этого View.NoDataOnLoad=.T.

В Init-формы пишешь примерно такой код

LOCAL tdDate
tdDate=Date()
REQUERY("MyView")

Для Grid делаешь настройки прямо в дезайнере формы
RecordSource = MyView
RecordSourceType=1 (Alias) - значение по умолчанию

Все. Запускай форму.

Вообще-то, в данном случае можно обойтись и без параметра. Просто написав в условии запроса Spisa.datr = Date(). Но параметр позволяет указать любую дату, не только текущую.

НовичекММне нужно ввести дату просчета(прошедший месяц).Как бы вы этот сделали программно.

Ну, так параметризированный View для того и создается, что бы можно было указать любую дату. Т.е. необходимо просто вычислить нужную дату и подставить ее в параметр:

LOCAL tdDate
* Первое число прошлого месяца
tdDate = GoMonth(Date(),-1)
tdDate = m.tdDate - DAY(m.tdDate)+1

* Последнее число прошлого месяца
tdDate = Date()
tdDate = m.tdDate - DAY(m.tdDate)

*Далее как и раньше
REQUERY("MyView")

Кстати, можно перестроить View (дать команду REQUERY()) и в процессе работы формы. Это не приведет к разрушению структуры Grid.

НовичекМВсе получилось, БОЛЬШОЕ СПАСИБО.
Извините, еще такой вопрос. Из своей базы я хочу выбрать какую- то конкретную запись, определяющий реквизит которой заданный с экрана. Мне немножко непонятен момент снятия этого реквизита с экрана.

Свойство Value соответствующего объекта. Если речь идет о TextBox, то примерно так:

LOCAL lcValue
lcValue = ThisForm.TextBox1.Value

НовичекМИ еще. У меня на дискете есть файл с одинаковой длиной записей в формате txt. Как его программно записать в уже созданную здесь таблицу?

Почитай описание команды APPEND FROM

НовичекМSOS!!!!!!!!!
По Local View - непосредственно в нем работает, на форме выдает ошибку
Alias not found, хотя все что вы подсказали сделапа. ??????????????????

Это ты о чем? Непосредственно в чем? Какая форма?

НовичекМВОПРОС По Local View - непосредственно при его создании Sql запрос работает,файл выводится в Gride правильно, если перехожу в форму, установив все что вы подсказали, выдает ошибку
Alias not found, по отладчику посмотрела что не нравиться в Init формы
REQUERY("Myview"), где Myview название моего Local View ??????????????????

Вот это сделано?

ВладимирМ
Теперь включаешь этот Local View в DataEnvironment твоей формы обязательно установив свойство этого View.NoDataOnLoad=.T.

Открыл DataEnvironment, далее

-) Пункт главного меню "DataEnvironment", подпункт ADD (или правой кнопкой мыши на окне DataEnvironment пункт Add)

-) В открывшейся формочке устанавливаешь переключатель "Select" в режим "View", устанавливаешь указатель на твое View и нажимешь кнопку ADD. Закрываешь уже ненужную формочку для добавления объектов

-) Активизируешь в DataEnvironment только что добавленное View и переходишь в окно Properties. Устанавливаешь в нем свойство NoDataOnLoad в значение .T.

Можно еще добавить View по другому:

-) Активизируешь окно DataEnvironment и окно твоего проекта.
-) Нажимаешь мышкой в окне проекта на нужное View и не отпуская тащишь ее в область DataEnvironment. После отпускания мыши View вставится в DataEnvironment. Надо будет только изменить NoDataOnLoad