" 下拉菜单 DATA: it_val TYPE vrm_values, wa_val LIKE LINE OF it_val. REFRESH it_val. CLEAR wa_val. wa_val-key = '1'. wa_val-text = text-l01. APPEND wa_val TO it_val. CLEAR wa_val. wa_val-key = '2'. wa_val-text = text-l02. APPEND wa_val TO it_val. CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P_EQART' values = it_val. *P_EQART的声明 PARAMETERS: p_eqart AS LISTBOX VISIBLE LENGTH 15 OBLIGATORY. " 处理下拉列表 UNASSIGN <t_outtab>. CASE p_eqart. WHEN '1'. ASSIGN t_outtab1[] TO <t_outtab>. WHEN '2'. ASSIGN t_outtab2[] TO <t_outtab>. ENDCASE. * t_outtab 的声明 字段符号 FIELD-SYMBOLS: <t_outtab> TYPE STANDARD TABLE, <wa> TYPE ANY. parameters: 变量 as listbox visible length 15 obligatory. 要添加obligatory 不添加该字段 则在List 下 最后一个为空,添加则没有 """不知道确定不? 没试