您好Fareedas，

以下程序演示了如何使ALV网格的各个字段可编辑（NetPR大于10）。 基本ALV网格所需的更改包括向ALV网格数据表（it_ekko）添加新字段，使用样式属性填充此字段以及向布局控制表添加条目。 同样，从本网站上的先前示例中，您还需要更改字段目录的数据类型，布局并使用其他功能模块来显示报告

 *＆------------------------------------------------  --------------------- *
 *＆报告ZDEMO_ALVGRID_EDIT *
 *＆*
 *＆------------------------------------------------  --------------------- *
 *＆*
 *＆简单的ALV网格报表示例*
 *＆................................... *
 *＆*
 *＆基本的ALV网格，已增强，可将特定字段显示为*
 *＆可根据字段值进行编辑*
 *＆------------------------------------------------  --------------------- *
 
 报告ZDEMO_ALVGRID_EDIT。
 
 桌子：ekko。
 
 TYPE-POOLS：slis。  " ALV声明
 *数据声明
 * ----------------
 类型：t_ekko的开始，
   ebeln TYPE ekpo-ebeln，
   ebelp TYPE ekpo-ebelp，
   statu TYPE ekpo-statu，
   aedat TYPE ekpo-aedat，
   matnr TYPE ekpo-matnr，
   menge TYPE ekpo-menge，
   类型ekpo-meins，
   netpr TYPE ekpo-netpr，
   peinh TYPE ekpo-peinh，
   field_style TYPE lvc_t_styl，"禁用"
  t_ekko的结尾。
 
 数据：t_ekko初始大小为0的it_ekko类型标准表，
       wa_ekko TYPE t_ekko。
 
 * ALV数据声明
 数据：带标题行的fieldcatalog类型slis_t_fieldcat_alv。
 数据：it_fieldcat TYPE lvc_t_fcat，" slis_t_fieldcat_alv WITH HEADER LINE"
       wa_fieldcat TYPE lvc_s_fcat，
 
       gd_tab_group TYPE slis_t_sp_group_alv，
       gd_layout TYPE lvc_s_layo，" slis_layout_alv，
       gd_repid就像sy-repid。
 
 
 ******************************************************  **********************
 *选择开始。
 选择开始。
 
   执行data_retrieval。
   PERFORM set_specific_field_attributes。
   执行build_fieldcatalog。
   执行build_layout。
   执行display_alv_report。
 
 
 *＆------------------------------------------------  --------------------- *
 *＆表格BUILD_FIELDCATALOG
 *＆------------------------------------------------  --------------------- *
 *为ALV报告建立Fieldcatalog
 * -------------------------------------------------  --------------------- *
 表格build_fieldcatalog。
 
   wa_fieldcat-fieldname ='EBELN'。
   wa_fieldcat-scrtext_m ='采购订单'。
   wa_fieldcat-col_pos = 0。
   wa_fieldcat-outputlen = 10。
   wa_fieldcat-emphasize ='X'。
   wa_fieldcat-key ='X'。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='EBELP'。
   wa_fieldcat-scrtext_m ='采购订单'。
   wa_fieldcat-col_pos = 1。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='STATU'。
   wa_fieldcat-scrtext_m ='状态'。
   wa_fieldcat-col_pos = 2。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='AEDAT'。
   wa_fieldcat-scrtext_m ='商品更改日期'。
   wa_fieldcat-col_pos = 3。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='MATNR'。
   wa_fieldcat-scrtext_m ='物料号'。
   wa_fieldcat-col_pos = 4。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='MENGE'。
   wa_fieldcat-scrtext_m ='采购量'。
   wa_fieldcat-col_pos = 5。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='MEINS'。
   wa_fieldcat-scrtext_m ="订单单位"。
   wa_fieldcat-col_pos = 6。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='NETPR'。
   wa_fieldcat-scrtext_m ='净价'。
   wa_fieldcat-edit ='X'。  "将整个列设置为可编辑
   wa_fieldcat-col_pos = 7。
   wa_fieldcat-outputlen = 15。
   wa_fieldcat-datatype ='CURR'。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 
   wa_fieldcat-fieldname ='PEINH'。
   wa_fieldcat-scrtext_m ='价格单位'。
   wa_fieldcat-col_pos = 8。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。
 ENDFORM。  " BUILD_FIELDCATALOG
 
 
 *＆------------------------------------------------  --------------------- *
 *＆表格BUILD_LAYOUT
 *＆------------------------------------------------  --------------------- *
 *为ALV网格报表构建布局
 * -------------------------------------------------  --------------------- *
 FORM build_layout。
 *设置字段属性的布局字段（即输入/输出）
   gd_layout-stylefname ='FIELD_STYLE'。
   gd_layout-zebra ='X'。
 ENDFORM。  " BUILD_LAYOUT
 
 
 *＆------------------------------------------------  --------------------- *
 *＆表格DISPLAY_ALV_REPORT
 *＆------------------------------------------------  --------------------- *
 *使用ALV网格显示报告
 * -------------------------------------------------  --------------------- *
 FORM display_alv_report。
   gd_repid = sy-repid。
 
 *调用函数" REUSE_ALV_GRID_DISPLAY"
   通话功能'REUSE_ALV_GRID_DISPLAY_LVC'
        出口
             i_callback_program = gd_repid
 * i_callback_user_command ='USER_COMMAND'
             is_layout_lvc = gd_layout
             it_fieldcat_lvc = it_fieldcat
             i_save ='X'
        桌子
             t_outtab = it_ekko
        例外情况
             程序错误= 1
             其他= 2。
   如果sy-subrc <> 0。
 *消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
 *与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
   万一。
 ENDFORM。  " DISPLAY_ALV_REPORT
 
 
 *＆------------------------------------------------  --------------------- *
 *＆表格DATA_RETRIEVAL
 *＆------------------------------------------------  --------------------- *
 *从EKPO表中检索数据并填充itab it_ekko
 * -------------------------------------------------  --------------------- *
 FORM data_retrieval。
   SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
    最多10行
     从ekpo
     表it_ekko的相应字段。
 
 ENDFORM。  " DATA_RETRIEVAL
 
 
 *＆------------------------------------------------  --------------------- *
 *＆形式set_specific_field_attributes
 *＆------------------------------------------------  --------------------- *
 *使用特定的字段属性填充FIELD_STYLE表
 * -------------------------------------------------  --------------------- *
 形式为set_specific_field_attributes。
   数据ls_stylerow类型lvc_s_styl。
   数据lt_styletab类型lv_t_styl。
 
 *使用样式属性填充样式变量（FIELD_STYLE）
 *
 * NETPR字段/列已在字段目录中设置为可编辑...
 *如果" NETPR"，以下代码将其设置为禁用（仅显示）
 *大于10。
   环聊it_ekko INTO wa_ekko。
     如果wa_ekko-netpr GT 10。
       ls_stylerow-fieldname ='NETPR'。
       ls_stylerow-style = cl_gui_alv_grid => mc_style_disabled。
                                              "将字段设置为禁用
       附加ls_stylerow到wa_ekko-field_style。
       从wa_ekko修改it_ekko。
     万一。
   结局。
 
 最终形式。  " set_specific_field_attributes


 

检查上面的代码。

有关使用ABAP OO的示例代码，请检查程序BCALV_EDIT_02。

希望这会有所帮助。

Rwd点（如果有帮助）。

谢谢

巴拉吉