powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с добавление новой записи
6 сообщений из 6, страница 1 из 1
Проблема с добавление новой записи
    #34427487
СяоФэн
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемы форумчане!

Поскажите, пожалуйста, как решается проблема.

Итак есть проект: 3 таблицы и 4 формы, меню, файл prg

1 форма главная - используется как контейнер для 3 других, которые ей подчинены
У главной формы меню.
Каждая из 3 подчиненных форм имеет кнопку добавления новой записи

Append Blank
ThisForm.Grid1.SetFocus

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

Чувствую проблема простая и одновременно принципиальная, подскажите выход?

Да файл prg содержит вполне простой код

SET EXCLUSIVE OFF
SET DELETED ON

DO FORM mainform.scx
READ EVENTS

SET DELETED OFF
SET EXCLUSIVE ON
...
Рейтинг: 0 / 0
Проблема с добавление новой записи
    #34427539
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Перед командой APPEND BLANK необходимо переключится в ту рабочую область, где и предполагается добавлять эту запись

Код: plaintext
1.
2.
SELECT MyTab
APPEND BLANK
...
Рейтинг: 0 / 0
Проблема с добавление новой записи
    #34428606
СяоФэн
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, Владимир, ты как всегда быстр и точен:-))

Я бывший cripton, забыл свои аккаунты, пришлось перерегистрироваться. Взял такое вот экзотическое имя.

Насчет добавления сделал так:

Код: plaintext
Append Blank AliasMytable

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

Записывать для начала в некую строковую переменную алиас источника данных?
...
Рейтинг: 0 / 0
Проблема с добавление новой записи
    #34428608
СяоФэн
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Sorry

Код: plaintext
APPEND BLANK IN AliasMyTable
...
Рейтинг: 0 / 0
Проблема с добавление новой записи
    #34428764
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
СяоФэнХотелось бы уточнить. При открытии формы, как я понимаю она уже открывает источник и знает его имя,
Не совсем. Здесь все не так примитивно.

Если таблицы включены в DataEnvironment формы и при этом включено свойство AutoOpen Tables (по умолчанию оно включено), то таблицы, разумеется, откроются. И откроются с нужными алиасами (именами). Но таблиц может быть много. Кроме того, в процессе работы формы может понадобиться переключение между разными таблицами (рабочими областями)

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

СяоФэнкак сделать команду универсальной?

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

Решение зависит от конкретной задачи и личных предпочтений. Но сразу можно сказать, что хранить надо не в переменной памяти, а в свойстве класса. Какого именно класса (кнопки, формы, Custom) - это уже рассматривается в каждом конкретном случае. Также как и способ его заполнения.
...
Рейтинг: 0 / 0
Проблема с добавление новой записи
    #34429464
СяоФэн
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо, Владимир. Очень интересное и полезное объяснение.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с добавление новой записи
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]