Наивный вопрос:

Настройка SET DELETED ON на первой форме есть?

Надеюсь, вы в курсе, что внутри Private DataSession все настройки, связанные с обработкой данных сбрасываются в значение по умолчанию? В том числе и SET DELETED. Полный список настроек, которые сбрасываются в Private DataSession можно посмотреть в описании к настройке

SET DATASESSION

Кроме того, удаление записи физически означает всего-лишь пометку такой записи как удаленной. Т.е. физически, запись по прежнему существует. А это значит, что на нее можно перевести указатель записи командой GO.

Настройка SET DELETED - это всего-лишь своеобразный фильтр, наложенный на таблицу. Чтобы фильтр вступил в силу, необходимо передвинуть указатель записи. Но не командой GO, а командой SKIP. Т.е. примерно так:


После этой операции, надо обновить картинку в Grid. А это происходит только при получении Grid фокуса. Т.е. надо явно прописать


Однако если подчиненная форма НЕ модальная, то весь этот код по обновлению придется вынести в отдельный метод и запускать ЯВНО. Специальной командой. Например, напрямую из подчиненной формы.

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

Для модальной формы все проще. Этот код можно записать сразу за DO FORM.

Лисонька

Если решите использовать CursorAdapter, то имейте в виду, что для решения данной задачи вам придется делать ТО ЖЕ САМОЕ. Ну, разве что, другими командами.

Т.е. по прежнему потребуется написать метод new_m() на главной форме. По прежнему потребуется организовать его вызов из дочерней формы. Отличия будут только в содержимом этого метода.

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

Если формы не могут открываться в двух экземплярах (дважды открыть одну и ту же форму), то, в качестве такого идентификатора можно передать свойство Name формы. Т.е. вызов дочерней формы примет вид


В методе Init дочерней формы необходимо организовать прием этого параметра и записать его в специальное свойство дочерней формы


Здесь свойство ThisForm.ParentFormName - это предварительно созданное свойство дочерней формы.

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


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

-------------------------------------------------------------------------------

Однако начиная с версии VFP8, все то же самое можно сделать при помощи BindEvents() примерно так:


Здесь я предполагаю, что при ЛЮБОЙ модификации в дочерней форме, так или иначе будет запущен ее метод MyUpdate(). Это пользовательский метод в этой дочерней форме.

Факт запуска метод MyUpdate() по связке в BindEvent() инициирует выполнение метода new_m() в текущей (родительской) форме. Что, собственно, и требуется.

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