Hello Venkat

如果您有一个可编辑 ALV列表，那么您将自动具有可用于追加和插入新行的工具栏功能。

如果您有一个仅显示 ALV列表，则可以使用以下示例报告中所示的不同方法。 运行报告并在命令字段" ADD_ROWS"或" APPEND_ROW"中输入。

 *＆---------------------------------------------  ------------------------ *
 *＆报告ZUS_SDN_ONE_ALV_GRID
 *＆
 *＆------------------------------------------------  --------------------- *
 *＆屏幕" 0100"不包含任何元素。
 *＆ok_code->分配给GD_OKCODE
 *＆
 *＆流逻辑：
 *输出前处理。
 * MODULE STATUS_0100。
 **
 *输入后处理。
 * MODULE USER_COMMAND_0100。
 *＆
 *＆------------------------------------------------  --------------------- *

 报告zus_sdn_one_alv_grid。




 数据：
   gd_okcode TYPE ui_func，
 *
   go_docking类型参考cl_gui_docking_container，
   go_grid类型参考cl_gui_alv_grid，
   gs_layout TYPE lvc_s_layo，
   gs_variant TYPE变量，
   gt_fcat类型lvc_t_fcat。


 数据：
   gt_outtab knb1的标准类型表。





 * -------------------------------------------------  -------------------- *
 * CLASS lcl_eventhandler的定义
 * -------------------------------------------------  -------------------- *
 *
 * -------------------------------------------------  -------------------- *
 CLASS lcl_eventhandler定义。

   公共部分。

     类方法：
       handle_user_command FOR事件EV_user_command of cl_gui_alv_grid
         输入
           e_ucomm
           发件人。


 ENDCLASS。  " lcl_eventhandler定义



 * -------------------------------------------------  -------------------- *
 * CLASS lcl_eventhandler的实现
 * -------------------------------------------------  -------------------- *
 *
 * -------------------------------------------------  -------------------- *
 CLASS lcl_eventhandler的实现。

   方法handle_user_command。

     案例e_ucomm。
       当cl_gui_alv_grid => mc_fc_loc_append_row时。
         将初始行追加到gt_outtab。

       当别人。
     结束。


   终结法。  " handle_user_command

 ENDCLASS。  " lcl_eventhandler的实现






 选择开始。

   SELECT * FROM knb1进入表gt_outtab最多10个行
          其中bukrs ='1000'。


 *创建停靠容器
   创建对象go_docking
     出口
       父母= cl_gui_container => screen0
       比例= 90
     例外情况
       其他= 6。
   如果sy-subrc <> 0。
 *消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
 *与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
   万一。




 *创建ALV网格
   创建对象go_grid
     出口
       i_parent = go_docking
     例外情况
       其他= 5。
   如果sy-subrc <> 0。
 *消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
 *与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
   万一。








 *显示数据
   gs_layout-grid_title ='客户'。
   呼叫方法go_grid-> set_table_for_first_display
     出口
       i_structure_name ='KNB1'
       is_layout = gs_layout
     改变
       it_outtab = gt_outtab
     例外情况
       其他= 4。
   如果sy-subrc <> 0。
 *消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
 *与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
   万一。


 **执行Modify_fieldcatalog。
 ** go_grid-> set_ready_for_input（1）。




 *将对接容器链接到目标dynpro
   呼叫方法go_docking->链接
     出口
       repid =系统恢复
       dynnr ='0100'
 *容器=
     例外情况
       其他= 4。
   如果sy-subrc <> 0。
 *消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
 *与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
   万一。


 *注意：dynpro不包含任何元素
   呼叫屏幕" 0100"。
 * dynpro的流程逻辑（不包含任何dynpro元素）：
 *
 *输出前的处理。
 * MODULE STATUS_0100。
 **
 *输入后的过程。
 * MODULE USER_COMMAND_0100。



 选择结束。

 *＆------------------------------------------------  --------------------- *
 *＆模块STATUS_0100输出
 *＆------------------------------------------------  --------------------- *
 *文字
 * -------------------------------------------------  --------------------- *
 模块状态_0100输出。
   设置PF-STATUS'STATUS_0100'。  "包含按钮" DETAIL"
 * SET TITLEBAR'xxx'。


 *刷新显示ALV清单
   呼叫方法go_grid-> refresh_table_display
 *出口
 * IS_STABLE =
 * I_SOFT_REFRESH =
     例外情况
       其他= 2。
   如果sy-subrc <> 0。
 *消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
 *与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
   万一。


 ENDMODULE。  " STATUS_0100输出

 *＆------------------------------------------------  --------------------- *
 *＆模块USER_COMMAND_0100输入
 *＆------------------------------------------------  --------------------- *
 *文字
 * -------------------------------------------------  --------------------- *
 MODULE user_command_0100输入。

   将gd_okcode转换为大写。

   案例gd_okcode。
     当"返回"时
          "结束"或
          " CANC"。
       设置屏幕0。离开屏幕。

     当" ADD_ROWS"时。
       执行add_rows。

     当" APPEND_ROW"时。
       调用方法lcl_eventhandler => handle_user_command
         出口
           e_ucomm = cl_gui_alv_grid => mc_fc_loc_append_row
           发件人= go_grid。

     当别人。
   结束。

   清除：gd_okcode。

 ENDMODULE。  " USER_COMMAND_0100输入


 *＆------------------------------------------------  --------------------- *
 *＆表格MODIFY_FIELDCATALOG
 *＆------------------------------------------------  --------------------- *
 *文字
 * -------------------------------------------------  --------------------- *
 *-> p1文字
 * <-p2文字
 * -------------------------------------------------  --------------------- *
 FORM Modify_fieldcatalog。
 *定义本地数据
   数据：
     ls_fcat TYPE lvc_s_fcat，
     lt_fcat类型lvc_t_fcat。


   呼叫方法go_grid-> get_frontend_fieldcatalog
     输入
       et_fieldcatalog = lt_fcat。

   ls_fcat-edit = abap_true。
   从ls_fcat修改lt_fcat
     运输编辑
     在哪里（编辑NE ls_fcat-edit）。

   go_grid-> set_frontend_fieldcatalog（lt_fcat）。


 ENDFORM。  " MODIFY_FIELDCATALOG


 *＆------------------------------------------------  --------------------- *
 *＆表格ADD_ROWS
 *＆------------------------------------------------  --------------------- *
 *文字
 * -------------------------------------------------  --------------------- *
 *-> p1文字
 * <-p2文字
 * -------------------------------------------------  --------------------- *
 FORM add_rows。

   做5次。
     将初始行追加到gt_outtab。
   ENDDO。
 ENDFORM。  " ADD_ROWS 

致谢

Uwe