IT干货网

abap之创建动态ABAP内表

exmyth 2024年10月24日 编程设计 96 0

在选择屏幕上,用户需要插入一个表名,我需要从该表中获取前 3 个字段并将它们显示在 ALV 中以供输出。我从阅读教程中了解到,我需要调用方法 cl_alv_table_create=>create_dynamic_table ,但我不知道如何创建 fieldcatalog。

DATA: t_newtable   TYPE REF TO data, 
      t_fldcat     TYPE lvc_t_fcat, 
 
CALL METHOD cl_alv_table_create=>create_dynamic_table 
  EXPORTING 
    it_fieldcatalog = t_fldcat 
  IMPORTING 
    ep_table        = t_newtable. 

请您参考如下方法:

我假设用户输入的表名是数据字典表(如 SFLIGHT)。如果是,那么您可以按如下方式生成字段目录。

data : it_tabdescr type abap_compdescr_tab, 
     wa_tabdescr type abap_compdescr. 
data : ref_table_descr type ref to cl_abap_structdescr. 
 
  ref_table_descr ?= cl_abap_typedescr=>describe_by_name( p_table ). 
  it_tabdescr[] = ref_table_descr->components[]. 
  loop at it_tabdescr into wa_tabdescr. 
    clear wa_fieldcat. 
    wa_fieldcat-fieldname = wa_tabdescr-name . 
    wa_fieldcat-datatype  = wa_tabdescr-type_kind. 
    wa_fieldcat-inttype   = wa_tabdescr-type_kind. 
    wa_fieldcat-intlen    = wa_tabdescr-length. 
    wa_fieldcat-decimals  = wa_tabdescr-decimals. 
    append wa_fieldcat to it_fieldcat. 
  endloop. 

Here, "p_table" is the selection screen parameter containing the table name.


评论关闭
IT干货网

微信公众号号:IT虾米 (左侧二维码扫一扫)欢迎添加!