【正文】
**amp。 Form sub_set_title*amp。** ALV列表抬頭信息的屬性設(shè)置*amp。** i_typ 輸出的類型* i_key 文本* i_info 數(shù)值*amp。*FORM SUB_SET_TITLE USING I_TYP TYPE ANY I_KEY TYPE ANY I_INFO TYPE ANY. CLEAR GTH_TITLE. GTH_TITLETYP = I_TYP. 輸出的類型 GTH_TITLEKEY = I_KEY. 文本 GTH_TITLEINFO = I_INFO. 數(shù)值 APPEND GTH_TITLE TO GTD_TITLE.ENDFORM. sub_set_title*amp。**amp。 Form sub_set_field*amp。** 設(shè)置ALV字段的屬性*amp。** i_pos 顯示列的位置* i_fieldname 內(nèi)表的字段名* i_tabname 內(nèi)表名* i_box 顯示復(fù)選框* i_edit 是否為可輸入* i_key 設(shè)置主鍵* i_hotspot 單擊控制* i_outputlen 控制輸出列的寬度* i_seltext 設(shè)置列的名稱* i_edit 可編輯*amp。*FORM SUB_SET_FIELD USING I_POS TYPE ANY I_FIELDNAME TYPE ANY I_TABNAME TYPE ANY I_KEY TYPE ANY I_OUTPUTLEN TYPE ANY I_SELTEXT TYPE ANY I_EDIT TYPE ANY I_BOX TYPE ANY I_NO_ZERO TYPE ANY. GTH_FIELDCATCOL_POS = I_POS. 顯示列的位置 GTH_FIELDCATFIELDNAME = I_FIELDNAME. 內(nèi)表的字段名 GTH_FIELDCATTABNAME = I_TABNAME. 內(nèi)表名 GTH_FIELDCATKEY = I_KEY. 設(shè)置主鍵 GTH_FIELDCATOUTPUTLEN = I_OUTPUTLEN. 控制輸出列的寬度 GTH_FIELDCATSELTEXT_M = I_SELTEXT. 設(shè)置列的名稱 GTH_FIELDCATEDIT = I_EDIT. GTH_FIELDCATCHECKBOX = I_BOX. GTH_FIELDCATNO_ZERO = I_NO_ZERO. APPEND GTH_FIELDCAT TO GTD_FIELDCAT. CLEAR GTH_FIELDCAT.ENDFORM. sub_set_field7 / 7