Автоинкриментное и символьное поле. Связь

[artemavd]

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

rezult.ID=chetverty.Chetvert

Поле ID имеет тип +, а поле Chetvert имеет тип А.

[Stilet]

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

Seletc * from rezult where ID='+chetverty.Chetvert;

[artemavd]

А куда вставить этот запрос:

Seletc * from rezult where ID='+chetverty.Chetvert;

И что он значит вообще?

[Stilet]

Seletc

Я очепятался - SELECT

А куда вставить этот запрос:

Допустим в OnAfterScroll твоего компонента для доступа к данным.
в свойство SQL компонента Query подчиненного набора.

Смысл ты понял али нет?

[artemavd]

Смысл ты понял али нет?

Чуть чуть понял

[Stilet]

Чуть чуть понял

Вот и попробуй реализовать, а если что подкорректируем...

[artemavd]

Вот и попробуй реализовать,

Попробовал. Поместил Ваш код в свойство AfterScroll (кстати что значит это свойство?) компонента TQuery. При нажатии на кнопку выполнения запроса появляется ошибка: Type mismatch is expresion. Задолбала эта ошибка

[Stilet]

Поместил Ваш код в свойство AfterScroll

Код в студию

[artemavd]

Код:

procedure TForm2.Query_ITOGAfterScroll(DataSet: TDataSet);
begin
 Form2.Query_ITOG.SQL.Clear;
 Form2.Query_ITOG.SQL.Text:='Select * from rezult,chetverty where rezult.ID= + chetverty.Chetvert';
 Form2.Query_ITOG.Open;
end;

[Stilet]

Form2.Query_ITOG.SQL.Text:='Select * from rezult,chetverty where rezult.ID= + chetverty.Chetvert';

На те же грабли наступаешь )

 Form2.Query_ITOG.SQL.Text:='Select * from rezult,chetverty where rezult.ID='+chetverty.Chetvert;

chetverty.Chetvert это же у тебя база и поле так?