ABAP 控制单行可编辑

*&根据条件设置字段是否可编辑
FORM SET_SPECIFIC_FIELD_ATTRIBUTES .
DATA LS_STYLEROW TYPE LVC_S_STYL .
DATA LT_STYLETAB TYPE LVC_T_STYL .
LOOP AT TAB1 .
AUTHORITY-CHECK OBJECT ‘ZSDZL’
ID ‘VKGRP’ FIELD TAB1-VKGRP.
IF SY-SUBRC <> 0.
LS_STYLEROW-FIELDNAME = ‘TZJE’."表示此行不能编辑了
LS_STYLEROW-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
INSERT LS_STYLEROW INTO TABLE TAB1-FIELD_STYLE.
ENDIF.

****可以按上面的代码添加多个字段的是否可修改
MODIFY TAB1 .
ENDLOOP.
ENDFORM.

GD_LAYOUT-STYLEFNAME = ‘FIELD_STYLE’.