Table Control 的一些控制

最新推荐文章于 2023-12-21 11:04:19 发布

yf_sap

最新推荐文章于 2023-12-21 11:04:19 发布

阅读量901

点赞数

分类专栏： ABAP 文章标签： table module bt header

本文链接：https://blog.csdn.net/yf_sap/article/details/2809553

版权

ABAP 专栏收录该内容

37 篇文章 0 订阅

订阅专栏

一、Table Control 响应双击事件

第一步：属性选择‘响应双击'

第二步：在STATUS里面F2要写成PICK，这样双击的UCOMM就是PICK了

第三步：加上如下代码就可以得到双击的行和列

data: l_row type i.
data: l_field type char30.

CASE OK_CODE.
WHEN 'PICK'.
get cursor line l_row.
get cursor field l_field.

endcase.

二、Table Control 控制单行是否可编辑

LOOP AT   T_DATA
       INTO WA_DATA
       WITH CONTROL T_CTR1
       CURSOR T_CTR1-CURRENT_LINE.
    MODULE T_CTR1_GET_LINES.   "在这个MODULE里面加如下代码
*&SPWIZARD:   MODULE T_CTR1_CHANGE_FIELD_ATTR
ENDLOOP.

**加如下代码

LOOP AT SCREEN .
    IF WA_DATA-EBELN IS NOT INITIAL.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.

如果采购订单有值，那么这行就不可编辑

三、Table Control控制某一列不显示

DATA: COLS TYPE TABLE OF CXTAB_COLUMN WITH HEADER LINE.
COLS[] = TABCTRL-COLS[]. "TABCTRL是Table Control的名字

LOOP AT COLS.
    IF COLS-INDEX = 4 OR COLS-INDEX = 5 OR COLS-INDEX = 8 .
      IF G_FLAG NE 'BT2'.
        COLS-INVISIBLE = 1.
      ELSE.
        COLS-INVISIBLE = 0.
      ENDIF.
      MODIFY COLS.
    ENDIF.
    IF COLS-INDEX = 11 OR COLS-INDEX = 9.
      IF G_FLAG NE 'BT1'.
        COLS-INVISIBLE = 1.   "显示
      ELSE.
        COLS-INVISIBLE = 0.   "不显示
      ENDIF.
      MODIFY COLS.
    ENDIF.
ENDLOOP.