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

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

В принципе, можно менять источник данных для Grid. Т.е. либо собственно таблица, либо View.

Можно еще сконструировать параметризированный View таким образом, чтобы при определенном значении параметра выдавалась вся таблица (хотя это не есть хорошо).

Оба подхода имеют свои достоинства и недостатки. Но прежде чем их обсуждать следует очень подумать: а надо ли тебе отображать ВСЮ таблицу целиком?

Ни один пользователь не сможет охватить такой объем информации "одним взглядом". На практике, если объем информации занимает места больше, чем 2...3 листания, то это уже много! Надо как-то фильтровать данные.

Ну, представь себе ситуацию: Открыли таблицу на несколько тысяч записей, а нужна запись где-то в конце. Это сколько же времени пользователь будет листать страницы пока дойдет до конца! Не проще ли предоставить ему механизм поиска и выбрать только записи по заданным критериям. А уж в этой небольшой выборке он сам уточнит, какая именно запись ему нужна.