设置ALV单元格的编辑状态

在使用ALV显示列表的过程中，我们可以使用IT_FIELDCAT参数设置某一个字段的可编辑状态。
具体单元格可编辑状态设置的主要思想：首先通过EIDT参数设置列为可编辑状态；其次对输出内表进行循环将不需要编辑的行设置为不可编辑状态，如此单元格的可编辑属性设置完毕。

整个alv界面的编辑状态可通过下面2个参数控制：

• CL_GUI_ALV_GRID=>MC_STYLE_DISABLED  不可编辑
• CL_GUI_ALV_GRID=>MC_STYLE_ENABLED 可编辑
  

程序代码：

1. TYPE-POOLS: SLIS.
   
2. *- Fieldcatalog
   
3. DATA: IT_FIELDCAT TYPE LVC_T_FCAT.
   
4. DATA: X_FIELDCAT TYPE LVC_S_FCAT.
   
5. DATA: X_LAYOUT TYPE LVC_S_LAYO.
   
6. 
   
7. "第1步：用操作具体单元的是否可编辑的内表和工作区
   
8. 
   
9. DATA: LS_EDIT TYPE LVC_S_STYL,
   
10.       LT_EDIT TYPE LVC_T_STYL,
    
11.     gr_alvgrid TYPE REF TO cl_gui_alv_grid .
    
12. "第2步：在内表定义添加字段，用于控制具体行的具体单元是否可编辑
    
13. DATA: BEGIN OF IT_VBAP OCCURS 0,
    
14.   VBELN LIKE VBAP-VBELN,
    
15.   POSNR LIKE VBAP-POSNR,
    
16.   STYLE TYPE LVC_T_STYL, "FOR DISABLE
    
17. END OF IT_VBAP.
    
18. DATA: LS_OUTTAB LIKE LINE OF IT_VBAP.
    
19. SELECT VBELN  POSNR
    
20.   UP TO 100 ROWS
    
21.   INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
    
22. FROM VBAP.
    
23. 
    
24. DATA:L_POS TYPE I VALUE 1.
    
25. CLEAR: L_POS.
    
26. L_POS = L_POS + 1.
    
27. X_FIELDCAT-SELTEXT = 'VBELN'.
    
28. X_FIELDCAT-FIELDNAME = 'VBELN'.
    
29. X_FIELDCAT-TABNAME = 'ITAB'.
    
30. X_FIELDCAT-COL_POS = L_POS.
    
31. X_FIELDCAT-EDIT = 'X'.
    
32. X_FIELDCAT-OUTPUTLEN = '10'.
    
33. x_fieldcat-ref_field = 'VBELN'.
    
34. x_fieldcat-ref_table = 'VBAK'.
    
35. APPEND X_FIELDCAT TO IT_FIELDCAT.
    
36. 
    
37. CLEAR X_FIELDCAT.
    
38. L_POS = L_POS + 1.
    
39. X_FIELDCAT-SELTEXT = 'POSNR'.
    
40. X_FIELDCAT-FIELDNAME = 'POSNR'.
    
41. X_FIELDCAT-TABNAME = 'ITAB'.
    
42. X_FIELDCAT-COL_POS = L_POS.
    
43. X_FIELDCAT-EDIT = 'X'.
    
44. X_FIELDCAT-OUTPUTLEN = '5'.
    
45. APPEND X_FIELDCAT TO IT_FIELDCAT.
    
46. CLEAR X_FIELDCAT.
    
47. L_POS = L_POS + 1.
    
48. 
    
49. "第3步：设置第六行两个单元都不能输入
    
50. SY-TABIX = 6.
    
51. LS_EDIT-FIELDNAME = 'VBELN'.
    
52. LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
    
53. LS_EDIT-STYLE2 = SPACE.
    
54. LS_EDIT-STYLE3 = SPACE.
    
55. LS_EDIT-STYLE4 = SPACE.
    
56. LS_EDIT-MAXLEN = 10.
    
57. INSERT LS_EDIT INTO TABLE LT_EDIT.
    
58. 
    
59. LS_EDIT-FIELDNAME = 'POSNR'.
    
60. LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
    
61. LS_EDIT-STYLE2 = SPACE.
    
62. LS_EDIT-STYLE3 = SPACE.
    
63. LS_EDIT-STYLE4 = SPACE.
    
64. LS_EDIT-MAXLEN = 6.
    
65. INSERT LS_EDIT INTO TABLE LT_EDIT.
    
66. 
    
67. INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-STYLE.
    
68. "第4步：将控制数据写到内表
    
69. MODIFY IT_VBAP INDEX SY-TABIX FROM LS_OUTTAB TRANSPORTING STYLE .
    
70. 
    
71. "设置第10行只有项目不能输入
    
72. clear LS_OUTTAB.
    
73. refresh LT_EDIT.
    
74. LS_EDIT-FIELDNAME = 'POSNR'.
    
75. LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
    
76. LS_EDIT-STYLE2 = SPACE.
    
77. LS_EDIT-STYLE3 = SPACE.
    
78. LS_EDIT-STYLE4 = SPACE.
    
79. LS_EDIT-MAXLEN = 6.
    
80. INSERT LS_EDIT INTO TABLE LT_EDIT.
    
81. 
    
82. INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-STYLE.
    
83. 
    
84. SY-TABIX = 10.
    
85. "将控制数据写到内表
    
86. MODIFY IT_VBAP INDEX SY-TABIX FROM LS_OUTTAB TRANSPORTING STYLE .
    
87. 
    
88. "第5步：设置控制字段
    
89. X_LAYOUT-STYLEFNAME = 'STYLE'.
    
90. 
    
91. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    
92.   EXPORTING
    
93.     I_CALLBACK_PROGRAM = SY-REPID
    
94.     IS_LAYOUT_LVC      = X_LAYOUT
    
95.     IT_FIELDCAT_LVC    = IT_FIELDCAT
    
96.   TABLES
    
97.     T_OUTTAB           = IT_VBAP[]
    
98.   EXCEPTIONS
    
99.     PROGRAM_ERROR      = 1
    
100.     OTHERS             = 2.
     
101. IF SY-SUBRC NE 0.
     
102.   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
     
103.   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     
104. ENDIF.

复制代码

程序执行效果：