• Registered: 2018-02-02
  • Posts: 132

Topic: Перемещение по отсортированной таблице либо таблице с фильтром

Если таблица не отсортирована, то кнопки "Вперед", "Назад" работают правильно:

procedure priem_corr_Button10_OnClick (Sender: TObject; var Cancel: boolean); //в конец списка
begin
priem_corr.TableGrid1.dbItemId:=priem_corr.TableGrid1.RowCount-1;
end;

procedure priem_corr_Button11_OnClick (Sender: TObject; var Cancel: boolean); //в начало списка
begin
priem_corr.TableGrid1.dbItemId:=1
end;

procedure priem_corr_Button9_OnClick (Sender: TObject; var Cancel: boolean);   //назад
begin
priem_corr.TableGrid1.dbItemId:=priem_corr.TableGrid1.dbItemId-1
end;

procedure priem_corr_Button8_OnClick (Sender: TObject; var Cancel: boolean);    //вперед
begin
priem_corr.TableGrid1.dbItemId:=priem_corr.TableGrid1.dbItemId+1
end;

В противном случае курсор перемещается по физическому dbItemId (т.е. в порядке создания записи). Как выйти из положения так, чтобы курсор двигался по отфильтрованной таблице в порядке отображения записей?

Заранее спасибо.

Yana
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Перемещение по отсортированной таблице либо таблице с фильтром

Пожалуйста приложите ваш проект (zip файл без exe и dll)

Dmitry.

3 Reply by derek (edited by derek 2018-03-05 11:59:54)

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,673

Re: Перемещение по отсортированной таблице либо таблице с фильтром

Hello Adiziktdy,
возможно, так
Derek.

Post's attachments

Attachment icon scrollthroughtable.zip 337.93 kb, 322 downloads since 2018-03-05 

  • Registered: 2018-02-02
  • Posts: 132

Re: Перемещение по отсортированной таблице либо таблице с фильтром

Если пользователь с ролью администратора- всё работает, если нет (пользователь видит только свои записи) - тогда нет.
https://c.radikal.ru/c05/1803/f8/29a7a223dbb9.jpg

Логины и пароли соответственно:
admin/admin
user2/ptuk

проект пришлю на Вашу почту

Yana
  • Registered: 2018-02-02
  • Posts: 132

Re: Перемещение по отсортированной таблице либо таблице с фильтром

derek wrote:

возможно, так
Derek.

Спасибо! Попробую.

Yana
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Перемещение по отсортированной таблице либо таблице с фильтром

Попробуйте так

procedure priem_corr_Button10_OnClick (Sender: TObject; var Cancel: boolean); //в конец списка
begin
    priem_corr.TableGrid1.SelectedRow:=priem_corr.TableGrid1.RowCount-1;
end;

procedure priem_corr_Button11_OnClick (Sender: TObject; var Cancel: boolean); //в начало списка
begin                             
    priem_corr.TableGrid1.SelectedRow:=0
end;

procedure priem_corr_Button9_OnClick (Sender: TObject; var Cancel: boolean);   //назад
begin
    priem_corr.TableGrid1.SelectedRow := priem_corr.TableGrid1.SelectedRow - 1;
end;

procedure priem_corr_Button8_OnClick (Sender: TObject; var Cancel: boolean);    //вперед
begin
    priem_corr.TableGrid1.SelectedRow := priem_corr.TableGrid1.SelectedRow + 1;
end;
Dmitry.
  • Registered: 2018-02-02
  • Posts: 132

Re: Перемещение по отсортированной таблице либо таблице с фильтром

derek wrote:

Hello Adiziktdy,
возможно, так
Derek.

DriveSoft wrote:

Попробуйте так

Спасибо всем за помощь! Работает  smile

Yana