Как отобразить данные из двух таблиц в TableBox

[prefreitor]

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

[randrews]

Цитата:

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

необходимо по одинаковому номеру подгрузить поле из второй таблицы в TableBox.

Если по одному номеру - может проще Subform использовать?


А, если как вы спрашиваете, то только добавить на TableBox кнонтролы EditBox и в каждый прописывать
SourceExpr = Table2.Field2

[prefreitor]

Спасибо за ответ!
Все работает. Однако пришлось опять переделать т.к пользователи хотели одно но говорили другое...

[Iskatel]

Цитата:

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

Цитата:

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

необходимо по одинаковому номеру подгрузить поле из второй таблицы в TableBox.

А, если как вы спрашиваете, то только добавить на TableBox кнонтролы EditBox и в каждый прописывать
SourceExpr = Table2.Field2

Чего-то у меня не получается. Сделал как советовали, но выдает ошибку: Вы использовали неопределенную переменную Table2.

Есть таблица N. У нее первичный ключ Number, Вторичный - Command. Эта таблица связана с формой.
Есть таблица F. У нее первичный ключ Command. Необходимо по одинаковому номеру (Command)подгрузить поле из второй таблицы в TableBox.

[romeo]

Цитата:

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

Цитата:

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

Цитата:

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

необходимо по одинаковому номеру подгрузить поле из второй таблицы в TableBox.

А, если как вы спрашиваете, то только добавить на TableBox кнонтролы EditBox и в каждый прописывать
SourceExpr = Table2.Field2

Чего-то у меня не получается. Сделал как советовали, но выдает ошибку: Вы использовали неопределенную переменную Table2.

Есть таблица N. У нее первичный ключ Number, Вторичный - Command. Эта таблица связана с формой.
Есть таблица F. У нее первичный ключ Command. Необходимо по одинаковому номеру (Command)подгрузить поле из второй таблицы в TableBox.

Если вдуматься, то сообщение об ошибке несет максимум нужной информации для исправления ситуации. Прописать в свойство поля имя переменной (которая насколько я понимаю объявлена и описана нигде не была) - мало. Надо в окне глобальных переменных завести переменную типа Record на таблице F и после этого можно использовать ее. Только в коде формы, построенной на N нужно еще и получить необходимые записи F.
И вот это "У нее первичный ключ Number, Вторичный - Command" резануло слух. Ключ ПЕРВИЧНЫЙ и состоит из двух полей Number, Command. Уникальная комбинация, которая не повторяется в таблице более одного раза ...

[Iskatel]

Чего-то я настолько запутался, что незнаю как получить необходимые мне строки. Вот что мне нужно получить.


Не могли бы подсказать как в коде формы, построенной на N получить необходимые записи F. Сделал как порекомендовали. А дальше незнаю как ...

Цитата:

в коде формы, построенной на N нужно еще и получить необходимые записи F.

[romeo]

Цитата:

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

Не могли бы подсказать как в коде формы, построенной на N получить необходимые записи F.

Обычно, когда получить нужно значение одного, двух, ну пяти полей в форме из другой таблицы я создаю функции. Либо по одной на каждое поле, либо одну на все поля (нужный алгоритм работы определяется параметром). Если вы предполагаете, что данных из других таблиц на форму придется вытягивать дофига, то париться с функциями уже не рационально. Тогда я объявляю глобальную переменную рекорд на нужной мне таблице. В форме в триггере OnAfterGetRecord() я делаю поиск в новой переменной по нужному значению из основной таблицы. И после этого я могу создавать сколь угодно много полей и в соурсе прописывать НоваяРекорд.Поле для отображения инфы из другой таблицы.

[apanko]

Приветствую,

Для вытягивания данных из полей таблицы Товар, по коду сделал себе следующую мега-функцию:

f_itemField(c_No : Code[20];t_fieldname : Text[30]) : Text[30]

//c_No  - код искомого товара
//t_fieldname  - наименование поля
//возвращаемое значение текст

VAR
Name	DataType	Subtype	Length
r_item	Record	Item
r_fields	Record	Field	
RecRef1	RecordRef		
fldNom	Integer		

r_fields.SETFILTER(TableNo,'%1',DATABASE::Item);  //в таблице Field выбрали поля принадлежащие таблице товар;
r_fields.SETFILTER(FieldName,'%1',t_fieldname);  //выбрали нужное нам поле (по идее одно)
IF r_fields.FIND('-') THEN
  fldNom:=r_fields."No.";  //узнали номер этого поля.

IF fldNom=0 THEN  //если такого поля нет
  EXIT('');

r_item.SETFILTER("No.",c_No);  //выбрали нужный товар (да, меня устраивает оператор FIND)
IF r_item.FIND('-') THEN BEGIN
  RecRef1.GETTABLE(r_item);				//спозиционировали RecRef1 на нужной записи
  EXIT(RecRef1.FIELD(fldNom).VALUE);  //получили значение поля
END;
EXIT(''); //если ничего не нашли.

Для получения полей Описание и Базовая единица измерения данная функция мне вполне подходит.
Предлагаю модифицировать под свою таблицу.

Отчет с данной функцией (она там одна) лежит здесь

[gennady]

Есть еще один способ. Создаем табличный объект с необходимыми нам объединенными полями, ключами. Мы будем ее использовать только как временную, поэтому номер для нее выбираем вне пользовательской лицензии. Заполняем ее в кодеюните и затем вызываем созданную на ее основе форму командой
FORM.RUN(FORM::"Наша форма", ВремТаблица);
Получается что-то вроде запроса.

[romeo]

Цитата:

Сообщение от Gennady Antropov

Есть еще один способ. Создаем табличный объект с необходимыми нам объединенными полями, ключами. Мы будем ее использовать только как временную, поэтому номер для нее выбираем вне пользовательской лицензии. Заполняем ее в кодеюните и затем вызываем созданную на ее основе форму командой
FORM.RUN(FORM::"Наша форма", ВремТаблица);
Получается что-то вроде запроса.

Айдишник объекта под такое дело наверное не слишком хорошее решение. На мой взгляд слишком расточительно.

[gennady]

Да нет же! Я же написал: ВНЕ пользовательской лицензии! На временные таблицы лицензионные ограничения клиента не распространяются. Только что на само СОЗДАНИЕ такого объекта нужна лицензия разработчика.