ABAP中的Table Control编程（2）

上篇讲了Table Control的基本功能，现在继续讨论它在其他方面的一些设置。

 

4，滚动到某行某列

如果我们希望，屏幕显示后展示在用户面前的最上端或者左端是表内容中的某行某列，则应该修改变量top_line和left_col的值。一般可在PBO的tc_0100_change_tc_attr里设置:

tc_0100-top_line = 3.

tc_0100-left_col = 3.

后面left_col语句起作用的前提是，内表的字段较多，导致表控件宽度不够，确有左右滚动的必要。

 

5，获取鼠标所在位置

这里要用GET CURSOR语句，比如

DATA: l_line TYPE i,
      l_field TYPE screen-name.

GET CURSOR FIELD l_field LINE l_line.

这样就取得了鼠标在内表的所在行以及字段名。不过要注意的是，如果希望映射到itab，那可别忘了top_line。正确读取鼠标所在条目对应于内表哪行数据的语句是：

GET CURSOR LINE l_line.

l_line = l_line + tc_0100-top_line - 1.

READ TABLE itab INTO wa INDEX l_line.

与此类似，希望鼠标定位于内表中某单元格的语句是SET CURSOR FIELD l_field LINE l_line.

 

6，设置固定列，设置行选择

有时我们希望Table Control的左边几列（一般是关键字段），它们在屏幕上是固定的，可以方便用户的阅读。要怎么设置呢？首先我们肯定会想到字段的属性中去找，可惜没找到。

其实这是Table Control本身的一个属性，我们只能定义最左边的某些列不可滚动。在Screen Layout中，双击Table Control的右上角，弹出“表控制”属性，即可设置：

 

这里也可以看到我们对表控件的行选择进行了设置，允许多重选择，同时选中与否的信息将更新到wa的mark字段，mark一般定义成c(1)。

 

7，如何隐藏某列

隐藏屏幕字段，我们首先想到的肯定是LOOP AT SCREEN，设置ACTIVE或INVISIBLE的字段值。可惜测试后，发现行不通。正确的做法是，通过编程修改tabctrl-cols下的某字段可见长度。

 

DATA: l_hide TYPE c,

      ls_col LIKE LINE OF tc_0100-cols.

LOOP AT tc_0100-cols INTO ls_col WHERE screen-name = 'WA-FIELD2'.
  IF l_hide IS INITIAL.
    ls_col-vislength = 6.
  ELSE.
    ls_col-vislength = 0.
  ENDIF.
  MODIFY tc_0100-cols FROM ls_col.
ENDLOOP.