1、双击启动事件：定义状态挑中F2功能键，在程序中处理返回的功能码

2、取得行号：

程序：

get cursor line linea  “取得当前表控制的行号   赋值给linea 注意：这个当前表控制的行号指的是表中看见的行号，不算下拉到多少行的行只是当前的。

check sy-subrc = 0.

linea = tbla-top_line + linea - 1.   ”当前首行序号 + 当前屏行号

read table  sp1 index linea.   “用取得当前行号读取内表

message s005（YMES） with linea.  "在状态条显示   或者 如果没有定义消息类的话不可以写 message linea type 'S'.因为这里的‘linea’一定是字符串而不是变量

 

3、定义表格的读写属性

程序：when ‘READWR’.

*当单击按钮时，第一列是只读，其他列读写切换

      LOOP AT tabl2-cols INTO acol WHERE index GT 0.

        IF  sy-tabix = 1.

          acol-screen-input = '0'.

        ELSE.

          IF acol-screen-input = '0'.

            acol-screen-input = '1'.

          ELSEIF acol-screen-input = '1'.

            acol-screen-input = '0'.

          ENDIF.

        ENDLOOP.