Смотря, что именно Вы вкладываете в понятие "пустая таблица".

1) В ней физически нет ни одной записи? Тогда по Reccount()=0

2) В таблице нет ни одной записи, удовлетворяющей определенным условиям? Например, нет ни одной не удаленной записи. Тогда все зависит от того, что это за условия и как они были надожены.

Андрей К"пустая таблица" - таблица, где нет ни одной неудалённой записи
После проверки необходимо сохранить указатель на текущую запись

Вы выполняете проверку в той же таблице, в которой надо сохранить положение указателя? Чем не устаривает тот факт, что раз Вы стоите на какой-то строке (т.е. EOF()=.F. или Recno()<=Reccount()), то значит, хотя бы одна не удаленная запись есть. Ведь именно на ней и находится указатель?

Андрей КИтак, как отметил Burn, надо сделать Go top, затем проверить Eof(), и вернуть указатель на место...
С какой стати? Вы ведь так и не описали свою задачу!

Вы УЖЕ СТОИТЕ на какой-то записи! Это либо реальная, физически существующая запись (Recno()<=Reccount()), либо некая фиктивная запись (Recno()>Reccount()). Зачем Вам куда-то переходить? Неужели так трудно проверить, чем именно является та запись, на которой Вы в настоящее время находитесь?

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

Андрей КНе факт, что я стою на конкретной записи. Ситуация следующая. Я загружаю форму с гридом, источником которого является таблица. Она может быть пуста или нет. Если таблица пуста, некоторые кнопки надо заглушить. Довольно типичная интерфейсная ситуация.

Ну, вот. Теперь задача проясняется.

Чтобы наполнить Grid таблицу надо открыть. Раз Вы таблицу открыли, значит, все-таки встали на какую-то запись. Либо явным образом, либо не явным (FoxPro при открытии таблицы устанавливает указатель на первую запись).

Вы открываете форму. Пользователь еще не успел в ней ничего сделать. Никуда не перешел, никак запись не позиционировал. Это значит, что "привязки" к конкретной записи у Вас нет. Поэтому нет необходимости возвращаться к какой-то конкретной записи.

Тем не менее, в некоторых случаях, при открытии формы необходимо сделать явный переход в начало таблицы по GO TOP. Это может быть, например, в случае использования Private DataSession и установки настройки SET DELETED ON после открытия таблиц.

Факт перехода в начало таблицы вообще не связан с определением пустая или не пустая таблица. Это необходимо сделать, чтобы фильтр вступил в силу. Но, заодно, этот переход решает и проблему определения пустоты таблицы.

Значит, просто в событии Form.Init даете команду GO TOP для Вашей таблицы, а дальше смотрите что возвращает EOF() и в зависимости от этого делаете не активными нужные кнопки. Указатель записи никуда возвращать не надо. Он так и остается на первой записи.

Андрей К ВладимирМЗначит, просто в событии Form.Init даете команду GO TOP для Вашей таблицы, а дальше смотрите что возвращает EOF() и в зависимости от этого делаете не активными нужные кнопки. Указатель записи никуда возвращать не надо. Он так и остается на первой записи.

Совершенно согласен. Другая ситуация. Форма с гридом уже загружена. Посредством некой кнопки удаляется запись из таблицы-источника грида. При этом таблица может "опустеть".
Этот факт необходимо проверять, в результате чего указатель на текущую запись улетит за пределы таблицы.
Будете выдввать задачи по одной?

Как физически осуществляется удаление записи? Это делает примерно такой код


Зачем здесь SKIP? А затем, что настройка SET DELETED ON - это своеобразный фильтр. Как и любой другой фильтр он вступает в силу только после попытки перемещения указателя записи. Это значит, что просто по команде DELETE запись, конечно, удалится, но останется видимой. Просто потому, что для данной записи фильтр SET DELETED ON еще не вступил в силу. Надо сдвинуть указатель записи.

Вот именно это и делает приведенный код.

После этого кода, указатель записи окажется либо на какой-то физически существующей записи, либо EOF()=.T. Опять же, ничего никуда перемещать и вычислять не надо. Вы однозначно определяете есть ли записи доступные для просмотра или нет. Просто по самому факту нахождения на какой-то реально существующей записи.

Возвращаемся к тому, с чего начали. Вам не надо ничего вычислять. Достаточно просто посмотреть на текущее положение указателя записей.