需求：使用表維護實現維護一個對象的不同屬性。

解決：實現的方式有很多種，比如如果屬性固定,可以將屬性放到列上來維護處理，如果動態可配置屬性也可以選擇自定義表維護，或者增強表維護。這里給出其中一種可復用的實現示例以供參考。

操作步驟如下：

1、依次創建對象表,屬性表,以及對象屬性配置表

2、為對象屬性表創建維護視圖，并為所有表和視圖創建表維護

3. 創建視圖簇

點擊代碼編輯創建form程序，再次點擊生成對應form,填寫代碼邏輯如下

FORM exi_10 ." 抬頭表TYPES: BEGIN OF ty_ylc_class_extra.INCLUDE TYPE ylc_class.TYPES: mode1 TYPE char1,mode2 TYPE char1,END OF ty_ylc_class_extra." 關聯表TYPES: BEGIN OF ty_ylc_class_attr_v_extra.INCLUDE TYPE ylc_class_attr_v.TYPES: mode1 TYPE char1,mode2 TYPE char255,END OF ty_ylc_class_attr_v_extra." 邏輯處理使用DATA: lt_ylc_class_extra TYPE TABLE OF ty_ylc_class_extra,ls_ylc_class_extra TYPE ty_ylc_class_extra,lt_ylc_class_attr_v_extra TYPE TABLE OF ty_ylc_class_attr_v_extra,ls_ylc_class_attr_v_extra TYPE ty_ylc_class_attr_v_extra.DATA:lt_ylc_class_attr_v TYPE TABLE OF ylc_class_attr_v,ls_ylc_class_attr_v TYPE ylc_class_attr_v,ls_ylc_class_attr TYPE ylc_class_attr,lt_ylc_attribute TYPE TABLE OF ylc_attribute,ls_ylc_attribute TYPE ylc_attribute.DATA: lv_chg_flag TYPE char1.STATICS: lt_ylc_class_attr_add TYPE TABLE OF ylc_class_attr.FIELD-SYMBOLS: <fs_value> TYPE any,<fs_tab> TYPE any.CONSTANTS: c_action TYPE string VALUE '(SAPLSVCM)VCL_ACTION', " 修改模式c_function TYPE string VALUE '(SAPLSVCM)VCL_FUNCTION', " 動作代碼,切換為 EV_NAVIc_last_view TYPE string VALUE '(SAPLSVCM)VCL_LAST_VIEW', " 切換前的維護表c_next_view TYPE string VALUE '(SAPLSVCM)VCL_NEXT_VIEW', " 切換后的維護表c_extract_m_1 TYPE string VALUE '(SAPLSVCM)VCL_EXTRACT_M_1', " 順序為1的表維護對應展示數據c_extract_m_2 TYPE string VALUE '(SAPLSVCM)VCL_EXTRACT_M_2', " 順序為2的表維護對應展示數據c_total_m_2 TYPE string VALUE '(SAPLSVCM)VCL_TOTAL_M_2'. " 順序為2的表維護對應所有數據ASSIGN (c_action) TO <fs_value>.IF sy-subrc = 0 AND <fs_value> = 'U'.ASSIGN c_function TO <fs_value>.IF sy-subrc = 0 AND <fs_value> = 'EV_NAVI'.ASSIGN (c_last_view) TO <fs_value>.IF sy-subrc = 0 AND <fs_value> = 'YLC_CLASS'.ASSIGN (c_next_view) TO <fs_value>.IF sy-subrc = 0 AND <fs_value> = 'YLC_CLASS_ATTR_V'. " 限制為 由 抬頭表切換到關聯表ASSIGN (c_extract_m_1) TO <fs_tab>.lt_ylc_class_attr_v_extra = <fs_tab>.IF sy-subrc = 0.ASSIGN (c_extract_m_2) TO <fs_tab>.IF sy-subrc = 0.lt_ylc_class_extra = <fs_tab>.ASSIGN (c_total_m_2) TO <fs_tab>.IF sy-subrc = 0." 邏輯處理部分lt_ylc_class_attr_v = <fs_tab>.SELECT *FROM ylc_attributeINTO TABLE lt_ylc_attribute.LOOP AT lt_ylc_class_extra INTO ls_ylc_class_extra WHERE mode2 = 'M'.LOOP AT lt_ylc_attribute INTO ls_ylc_attribute.READ TABLE lt_ylc_class_attr_v INTO ls_ylc_class_attr_v WITH KEY class = ls_ylc_class_extra-classattribute = ls_ylc_attribute-attribute.IF sy-subrc <> 0.lv_chg_flag = abap_true.ls_ylc_class_attr_v-mandt = sy-mandt.ls_ylc_class_attr_v-class = ls_ylc_class_extra-class.ls_ylc_class_attr_v-attribute = ls_ylc_attribute-attribute.ls_ylc_class_attr_v-attdesc = ls_ylc_attribute-attdesc.ls_ylc_class_attr_v-isactivate = ''.APPEND ls_ylc_class_attr_v TO lt_ylc_class_attr_v.MOVE-CORRESPONDING ls_ylc_class_attr_v TO ls_ylc_class_attr .APPEND ls_ylc_class_attr TO lt_ylc_class_attr_add.ENDIF.ENDLOOP.ENDLOOP.IF lv_chg_flag = abap_true.<fs_tab> = lt_ylc_class_attr_v.ENDIF.ENDIF.ENDIF.ENDIF.ENDIF.ENDIF.ELSEIF sy-subrc = 0 AND <fs_value> = 'SAVE' AND lt_ylc_class_attr_add IS NOT INITIAL." 保存LOOP AT lt_ylc_class_attr_v_extra INTO ls_ylc_class_attr_v_extra WHERE mode1 = 'U' OR mode1 = 'I' OR mode1 = 'M'.DELETE lt_ylc_class_attr_add WHERE class = ls_ylc_class_attr_v_extra-class AND attribute = ls_ylc_class_attr_v_extra-attribute.ENDLOOP.MODIFY ylc_class_attr FROM TABLE lt_ylc_class_attr_add.CLEAR lt_ylc_class_attr_add.ENDIF.ENDIF. ENDFORM.

激活

4、效果展示

總結

以上是生活随笔為你收集整理的SAP表维护自动带出对象属性的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。