перемещение по двум таблицам

[Alexi]

Здравствуйте!!! Как сделать перемещение по двум таблицам одновременно ( table , Query) ?

[Toxa]

делай locate в одной при перемещении в другой

[Stilet]

Как сделать перемещение по двум таблицам одновременно

Всмысле? Как ты перемещаться будешь в первой таблице?
Я к тому что можно в первой таблице прописать в OnAfterScroll перемещение по второй.

[Alexi]

Точнее перемещаюсь по одной таблице(Query) , а по другой автоматически. А по подробнее можно про Onafterscroll?

[Stilet]

Ну например так:

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
ADOTable2.First;
if DataSet.RecNo<=ADOTable2.RecordCount-1 then
 ADOTable2.MoveBy(DataSet.RecNo);
end;

Не самый оптимальный вариант, но как иллюстрация сойдет.
Смысл ясен?

[Alexi]

работает, но только с BeforeScroll , только при произвольном выборе строки перемещение нарушаеться!!! Например если 3 строки ,выбираю 3 в другой таблице переходить на 2 ! помоги пожалуйста!