Написал язык Суржи

[vladrvv]

ItemIndex . Должно работать.

Работает, я допустил ошибку.

[vladrvv]

Вы получили в личном сообщении ссылочку на пример ?

Вопросы по нему.
Предложение
1)Для xDbf указывать FilePath через относительную адресацию.
Т.е. если указать, к примеру, DATA\ то директория определяется не относительно exewindows (он может быть где угодно) , а относительно положения файла проекта *.lm9.
Такой подход работал на Делфи, правда на Advantage и относительно *.exe.

2) Относительно примера. Фактически я пытаюсь повторить на Дизеле с некоторыми улучшеними то, что раньше делал на Делфи.

Имеется 5 таблиц , DogovorADD.DBF связана отношением Master с таблицей Dogovor.DBF . В данном примере связь неустойчивая. Стоит поткрывать таблицы и связь пропадает. Только перегрузка программы её восстанавливает.

3)Таблицы Организации(Org.DBF), Руководители (FisLico.DBF), Услуги(UsLygi.DBF) , точнее формы содержащие информацию из указанных таблиц могут открываться в двух режимах
- через FormBar .Этот режим используется для редактирования и добавления данных. Некоторые кнопки на панеле формы д.быть недоступны.Я их прячу на событие onShow.
Я пока только это сделал для форм FormYslyg и FormBoss.

Из формы FormDog должна открываться форма FormDogEdit, в которой собственно и происходит присваивание значений из таблиц Организации(Org.DBF), Руководители (FisLico.DBF).

FormYslyg открывается с ошибкой "Acces ...", FormBoss - нормально.
Но когда пытаюсь из формы FormDog нажатием кнопки BitBtnEdit открыть форму FormDogEdit , открывается форма FormBoss.

[Rik]

В ЛС пусто..

[vladrvv]

повторил .

[Rik]

Сообщение от vladrvv

повторил .

Ответ получили?

[vladrvv]

Получил. Спасибо.
Буду разбираться

[vladrvv]

Да, как- то не совсем просто для такой маленькой задачи. Это связано с FormBar или особенности Дизеля?
И почему выскакивает сообщение " Access v.." при открытии Формы услуги? Просмотрел - вроде все одинаково сделано с другими формами.

[vladrvv]

Убрал все навороты и красивости(FormsBar).
Сделал просто - Клик на кнопочку - Форма должна открыться.
Из формы FormDog пытаюсь перейти в ее редактирование.
Смотрю в дебагере.
Форма FormDogEdit создается , но следующая строка - "Показать форму"
почему-то пропускается и заходит в следующее команду , которой открывается форма FormBoss.

[Rik]

Сообщение от vladrvv

Да, как- то не совсем просто для такой маленькой задачи. Это связано с FormBar или особенности Дизеля?
И почему выскакивает сообщение " Access v.." при открытии Формы услуги? Просмотрел - вроде все одинаково сделано с другими формами.

В форме услуг, отладчик показывает, что ошибка происходит в методе
method TFormYslyg.FormShow(Sender: TObject);
на строке
xDBGrid1.Options = xDBGrid1.Options-[xdgRowSelect];
Попробуйте пока эту запись, заменить на короткую, будет работать:
xDBGrid1.Options -= [xdgRowSelect];
Я чуть попозже разберусь почему первый вариант к ошибке приводит.

ps.
Ошибку с вычитанием множества нашел, как до офиса доберусь исправлю.

[Rik]

Сообщение от vladrvv

Убрал все навороты и красивости(FormsBar).
Сделал просто - Клик на кнопочку - Форма должна открыться.
Из формы FormDog пытаюсь перейти в ее редактирование.
Смотрю в дебагере.
Форма FormDogEdit создается , но следующая строка - "Показать форму"
почему-то пропускается и заходит в следующее команду , которой открывается форма FormBoss.

Можете ссылку в лс отправить? Я посмотрю.

Ошибку с вычитанием множества пофиксил, можно обновиться.