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

[artemavd]

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

Видимо я дурак, если наступаю на одни и теже грабли )
Если я пишу это

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

То прога не компилится и выводится сообщение об ошибке, что [Error] Unit2.pas(2827): Undeclared identifier: 'chetverty'.

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

Так)

[Stilet]

Фух..
Вот смотри Есть у тебя Query_ITOG - главная.
А есть допустим Query_chetverty - подчиненная
Тогда смотри внимательно:

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

Так ясно?

[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='+Table4.DataSource.DataSet.FieldByName('Chetvert').AsString;
 Form2.Query_ITOG.Open;
end;

Table4 - это таблица, на который настроен DaraSource4, а на DataSource4 настроен Query_ITOG. В таблице rezult у меня есть lookup-поле Chetvert и в таблице есть поле Chetvert. А при нажатии на кнопку выводится ошибка, что типа в Table1 нет поля Chetvert. Его там и не должно быть, поэтому нет. Вообщем, запрос не работает. Может еще что-нибудь можно сделать?

[vovk]

AfterScroll наступает сразу после перемещения на новую запись.
У тебя это событие вызывается по перемещениям по Query_ITOG, и сойства меняются тоже в томже Query_ITOG.
Судя по всему тебе надо так

procedure TForm2.Table4AfterScroll(DataSet: TDataSet);
begin
Form2.Query_ITOG.SQL.Clear;
 Form2.Query_ITOG.SQL.Text:='Select * from rezult where rezult.ID='+Table4.FieldByName('Chetvert').AsString;
 Form2.Query_ITOG.Open;
end;

в таком случае,
при перемещении по записям в Table4,
в Query_ITOG будут выбиратся записи из таблицы Rezult в которых поле
ID= содержимому текущей записи поля Chetvert,
той таблицы которая находится в Table4
вот примерно так

и у Query_ITOG свойство Datasource обнули

[artemavd]

Попробовал Ваш код, Vovk. Выдает ошибку:
"Invalid use of keyword.
Token: =
Line Number: 1"

[vovk]

поставь ещё кнопку на форму и мемо, на кнопку напиши

Memo1.text:=Form2.Query_ITOG.SQL.Text;

и после того как ошибку выдаст нажми на кнопку..

хотелось бы содержимпе мемо увидеть..
ведь я правильно понял то что выше постом написано под кодом.. это надо?
хотя в общем то странно.. ведь запись может быть только 1 в таком случае..
логичнее было бы её использовать как параметр для отбора..

[artemavd]

Вот, в Memo выволится это:

Select * from rezult where rezult.ID=

[vovk]

получается что в текущей записи Table4 содержимое поля Chetvert =''

А может мы неправильно всё поняли? Можно по подробнее что значит связать? То.е. по каким вашим действиям, что должно происходить?

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

[artemavd]

Ну хорошо:-). Попробую истолковать). Есть две таблицы: rezult и chetverty. Мне нужно связать их по полям ID и Chetvert. В таблице rezult Есть лукап поле с названиями четвертей. То Есть для внесенной записи, четверть выбирается из списка. Эта связь мне нужна для более точного поиска по базе. Вся проблема в том, что поля имеют разный тип.

[vovk]

так уточняю в таблице rezult есть автоинкрементное поле Id , которое нас совершенно не касается так?
там же есть поле с неизвестным названием в котором содержатся названия четвертей , которые есть в таблице chetverty в поле chetvert так?
вы бы может скинули таблички эти 2 с небольшим количеством данных чтоб понять что где находится? А то я понимаю что можно было в таблице результ в это неизвестное поле , добавлять как внешний ключь данные из поля ID таблицы chetverty, это мне понятно было бы, тогда у нас была бы в записях ссылка на данные из таблицы четверти, на определённую запись. судя по названию в таблице результ может быть несколько записей связанных с 1 записью в таблице chetverty или я вобще ничего не понимаю..