abap 动态生成alv列

最新推荐文章于 2024-02-23 19:02:12 发布

weixin_33877092

最新推荐文章于 2024-02-23 19:02:12 发布

阅读量290

点赞数

原文链接：http://www.cnblogs.com/springzt/p/3219641.html

版权

本文介绍了一个ABAP程序示例，该程序使用二分法检索算法处理表格数据，并通过条件判断输出特定列。此外，还展示了如何利用ABAP的ALV网格显示功能来展示处理后的数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ZRP_FI007_A

PERFORM F_INPUT_FIELDCAT USING:
                                   'A' '列1',
                                   'B' '列2',
                                   'C' '列3'.

*如果不等于0就输出列4
sort gt_tab by 列4.
read table gt_tab with key 列4 = 0 BINARY SEARCH. “二分法检索，可查看博客
IF sy-subrc <> 0.
  PERFORM F_INPUT_FIELDCAT USING 'D' '列4'.
endif.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      IS_LAYOUT_LVC      = WS_LAYOUT
      IT_FIELDCAT_LVC    = WS_FIELDCAT
    TABLES
      T_OUTTAB           = GT_TAB  
    EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.

*&---------------------------------------------------------------------*
*&      Form  F_INPUT_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->VALUE(P_FIELD)  text
*      -->VALUE(P_NAME)   text
*----------------------------------------------------------------------*
FORM F_INPUT_FIELDCAT USING  VALUE(P_FIELD)
                             VALUE(P_NAME).
  DATA: ST_FIELDCAT TYPE LVC_S_FCAT.
  ST_FIELDCAT-FIELDNAME   =   P_FIELD.
  ST_FIELDCAT-SCRTEXT_M   =   P_NAME.
  APPEND ST_FIELDCAT TO WS_FIELDCAT.
  CLEAR ST_FIELDCAT.
ENDFORM.                    "F_INPUT_FIELDCAT