Как сделать фильтр одной таблицы по нужной строке другой таблицы?

@Evgen85 · Регистрация: 26.08.2015

Студворк — интернет-сервис помощи студентам

нет ответа на мой вопрос?

@xxbesoxx · 26.08.2015, 14:13

На каком ? ест подожди

Добавлено через 3 минуты
Вот так ...

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  if ADOQuery1.FieldByName('Id').AsString<>'' then // одной таблицы
    begin
      ADOQuery2.Filtered:=False; // по нужной строке другой таблицы
      ADOQuery2.Filter:='Tab1ID='+ADOQuery1.FieldByName('Id').AsString;
      ADOQuery2.Filtered:=True;
    end;
end;

Добавлено через 5 минут
копипастить поможет я буду рад

@Evgen85 · 26.08.2015, 14:34 **[ТС]**

можно немного подробнее?
есть 2 таблицы : общая и ремонт
в общей есть поле WIN (по нему должна быть сортировка)
в таблице ремонт, по нахождению такого же win должны отображаться соответствующие строки

@xxbesoxx · 26.08.2015, 14:49

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

есть 2 таблицы

создайте и выложите

@Evgen85 · 26.08.2015, 15:43 **[ТС]**

что то я тут понять не могу как выложить таблицы

@xxbesoxx · 26.08.2015, 15:53

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

не могу как выложить таблицы

Через Winrar надо архивировать

@Evgen85 · 26.08.2015, 22:32 **[ТС]**

что означает 'Tab1ID='??

@xxbesoxx · 26.08.2015, 23:13

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

что означает 'Tab1ID='??

Лен тебя объяснить то что написано в книге

@Evgen85 · 27.08.2015, 10:45 **[ТС]**

спасибо, все работает)))))
я счастлив

@xxbesoxx · 27.08.2015, 11:01

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

я счастлив

Я рад что вы разобрали . следующий раз когда откроешь тему не надо так писать . А то желание пропадает ответить

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

нет ответа на мой вопрос?

Вы вчера открыли это тема и там бил "Другой вопрос" а потом бистро переименовали тема и вопрос тоже Так удачного тебя дня и желаю все хорошего

@Evgen85 · 27.08.2015, 11:33 **[ТС]**

вопрос был тот же что и в "шапке"

@Evgen85 · 29.08.2015, 17:25 **[ТС]**

не могу понять,
теперь при запуске компилятора вылезает ошибка: "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
if ADOQuery1.FieldByName('win').AsString<>'' then
begin
ADOQuery2.Filtered:=False;
ADOQuery2.Filter:='win='+ ADOQuery1.fieldbyname('win').AsString;
ADOQuery2.Filtered:=true;
 
end;
end;

@Sky Walker · 29.08.2015, 21:26

Попробуй так

Delphi
1
2
3
4
5
6
7
8
9
with DataModule2.ADOQuery3 do
begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from table2');
    SQL.Add('where win = '+QuotedStr(datamodule2.adoquery1.fieldbyname ('win').asstring));
    Open;
end;

@Evgen85 · 29.08.2015, 21:30 **[ТС]**

Delphi
1
SQL.Add('where win = '+QuotedStr(datamodule2.adoquery1.fieldbyname ('win').asstring));

нет такого fieldbyname(((

@Sky Walker · 29.08.2015, 21:42

Datamodule2. Убери))) у тебя наверно компоненты на form1 лежат)))

@Evgen85 · 29.08.2015, 21:57 **[ТС]**

да, на форм1, а как убрать Datamodule2?
понял, только проблема не в нем((

@Sky Walker · 29.08.2015, 22:00

Delphi
1
2
3
4
5
6
7
8
9
with ADOQuery2 do
begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from table2');
    SQL.Add('where win = '+QuotedStr(adoquery1.fieldbyname ('win').asstring));
    Open;
end;

Так попробуй

@Evgen85 · 29.08.2015, 22:07 **[ТС]**

ты не мог бы ко мне удаленно подключиться??)))

Добавлено через 1 минуту
teamviewer
615 291 237
m1k35w

@Sky Walker · 29.08.2015, 22:13

С телефона сижу. Что теперь? Не работает? Ошибка выходит?

@Evgen85 · 29.08.2015, 22:14 **[ТС]**

что то не работает

Добавлено через 42 секунды
не найдено поле win B adoquerry1

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14

	Как сделать фильтр одной таблицы по нужной строке другой таблицы? 26.08.2015, 14:00. Показов 3388. Ответов 24 Метки нет (Все метки) нет ответа на мой вопрос? 0

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	26.08.2015, 14:34 [ТС]
	можно немного подробнее? есть 2 таблицы : общая и ремонт в общей есть поле WIN (по нему должна быть сортировка) в таблице ремонт, по нахождению такого же win должны отображаться соответствующие строки 0

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	26.08.2015, 15:43 [ТС]
	что то я тут понять не могу как выложить таблицы 0

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	26.08.2015, 22:32 [ТС]
	что означает 'Tab1ID='?? 0

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	27.08.2015, 10:45 [ТС]
	спасибо, все работает))))) я счастлив 0

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	27.08.2015, 11:33 [ТС]
	вопрос был тот же что и в "шапке" 0

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
	29.08.2015, 21:42
	Datamodule2. Убери))) у тебя наверно компоненты на form1 лежат))) 1

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	29.08.2015, 21:57 [ТС]
	да, на форм1, а как убрать Datamodule2? понял, только проблема не в нем(( 0

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	29.08.2015, 22:07 [ТС]
	ты не мог бы ко мне удаленно подключиться??))) Добавлено через 1 минуту teamviewer 615 291 237 m1k35w 0

@Sky Walker 0 / 25 / 13 Регистрация: 30.04.2014 Сообщений: 516
	29.08.2015, 22:13
	С телефона сижу. Что теперь? Не работает? Ошибка выходит? 1

@Evgen85 0 / 0 / 0 Регистрация: 26.08.2015 Сообщений: 14
	29.08.2015, 22:14 [ТС]
	что то не работает Добавлено через 42 секунды не найдено поле win B adoquerry1 0

Как сделать фильтр одной таблицы по нужной строке другой таблицы?

Решение