Table control

Jimona

Издрасьте всем!
Проблема, думаю, детская, но к своему стыду, пока ее не победил. На рисованном экране использую управляющие элементы таблицы (table control) для вывода внутренней таблицы, но в таблице - ок. 500 записей, а на экран выводится только 14 (на величину формы). При этом линейка прокрутки не активна (нет бегунка). Как вывести все записи, и чтобы бегунок прокрутки появился? :roll:

Спасибо за любое замечание...

Vadim

ты забыла это:

Code:

describe table itab lines tc-lines.

Jimona

В событии PBO моего экрана есть такой кусок:
...
LOOP WITH CONTROL TABLE_ITAB. "TABLE_ITAB - имя управл. элемента табл. на экране
MODULE FILL_TABLE_ITAB.
ENDLOOP.
...
MODULE FILL_TABLE_ITAB OUTPUT.
READ TABLE ITAB INDEX TABLE_ITAB-CURRENT_LINE.
IF SY-SUBRC NE 0.
EXIT FROM STEP-LOOP.
ENDIF.
ENDMODULE.
Все достаточно прозрачно (примером служит книга Кречмера и Вейса). При вставке DESCRIBE экранная форма увеличивается еще на несколько строк и все! Бегунка так и нет, и все записи я не вижу.
Ткните, плиз, меня носом куда-что корректно добавить?

ВН

попробуй обработать логику нажатия
на PageUp / Pagedown
присвоив им P+ и P-

соответственно меняй table_itab-top_line = table_itab-top_line + XX
или table_itab-top_line = table_itab-top_line - XX
где XX type I - число строк на экране

Vadim

Думаю, примерно вот так:

Code:

PROCESS BEFORE OUTPUT.
  ...
  MODULE INIT_TABLE_ITAB.
  LOOP WITH CONTROL TABLE_ITAB. 
    MODULE FILL_TABLE_ITAB.
  ENDLOOP.
  ...
  MODULE INIT_TABLE_ITAB OUTPUT.
  if flag_initial = true.
    flag_initial = false.
    select ... into table ITAB.
    describe table ITAB lines TABLE_ITAB-lines.
  endif.
  ENDMODULE.                    "INIT_TABLE_ITAB OUTPUT

Jimona

Vadim написал(а):

Code:

...describe table ITAB lines TABLE_ITAB-lines...

Такая конструкция работает! Сенкс, большое!

Правила форума

Table control

Кто сейчас на конференции