DATA:VALUE(10)TYPEC,"下拉框DESC(10)TYPEC."说明START-OF-SELECTION.CALLSCREEN100."载入画面 载入下拉列表框的MODULE:MODULESETVALUEINPUT.DATA:LV_NAMETYPEVRM_ID,LT_LISTTYPEVRM_VALUES,LW_VALUELIKELINEOFLT_LIST.CLEAR:LT_LIST,LW_VALUE.LV_NAME='VALUE'."读取数据表内容至内表SELECTVALUEINTOLW_VALUE-...
DATA: g_vrmid TYPE vrm_id,"id of value setgt_vlist TYPE vrm_values,"internal table of listgs_vlist TYPE vrm_value."wa of gt_vlist.SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001. PARAMETERS: p_lsbox TYPE c AS LISTBOX VISIBLE LENGTH20DEFAULT'1'. SELECTION-SCREEN END...
1、拖入一个编辑控件到屏幕,设置“下拉”属性为“ListBox” 2、设置Function-CODE, 3、listbox的列表的取值有三种方法: A)默认取Dictionary; B)使用“VRM_SET_VALUES"函数在PBO中设置 ,代码见后面代码 C)使用Process On Value-request事件和“F4IF_INT_Table_Value_request”函数设置输入帮助 其中C优于B,B优于...
PARAMETERS: SVRHA(10) AS LISTBOX VISIBLE LENGTH 30. AT SELECTION-SCREEN OUTPUT. name = 'SVR'. value-key = '1'. value-text = 'Text 1'. APPEND value TO lista. value-key = '2'. value-text = 'Text 2''. APPEND value TO lista. ...3,4,5,6,7,8 value-key = '9'. value-te...
你这个需求，在屏幕初始化（PBO）的时候实现 用 VRM_SET_VALUES 的时候，是把筛选出来的数据放到类型是vrm_values的内表中，只要读取内表的第一行数据，赋值给屏幕字段就可以了 类似如下 READ TABLE VRM_VALUES INDEX 1 INTO listbox. 选择屏幕...
1、拖入一个编辑控件到屏幕，设置“下拉”属性为“ListBox”2、设置Function-CODE，3、listbox的列表的取值有三种方法：A)默认取Dictionary；B)使用“VRM_SET_VALUES"函数在PBO中设置，代码见后面代码C)使用ProcessOnValue-request事件和“F4IF_INT_Table_Value_request”函数设置输入帮助其中C优于B，B优...
INIT_LISTBOX在INITIALIZATION事件中初始化，显示效果清晰可见。4. 参数传递：通过PARAMETERS P_14，可在输出设置中实现数据传递。5. PUSHBUTTON：BTN1、BTN2、BTN3等按钮在AT SELECTION-SCREEN下设置MESSAGE，呈现出明确的交互效果。所有控件的组合使用，构建出功能丰富的用户界面，整体效果直观且易用。
（2）在AT SELECTION-SCREEN OUTPUT下设置隐藏项。（3）CHECKBOX设置效果如图 5. 下拉列表设置 （1）创建下拉列表P_13。（2）创建子程序FRM_INIT_LISTBOX并在INITIALIZATION事件调用。（3）下拉列表效果图 6. 参数传递 （1）创建PARAMETERS P_14。（2）在AT SELECTION-SCREEN OUTPUT下设置参数传递。（...
START-OF-SELECTION. CALL SCREEN 100. "载入画面 载入下拉列表框的MODULE: MODULE SETVALUE INPUT. DATA: LV_NAME TYPE VRM_ID, LT_LIST TYPE VRM_VALUES, LW_VALUE LIKE LINE OF LT_LIST. CLEAR:LT_LIST,LW_VALUE. LV_NAME = 'VALUE'.
用户选择“Free Selection”时,会出现一个新的输入框,允许客户直接输入。效果如下: 实现代码如下: 代码语言:javascript 复制 SELECTION-SCREENBEGINOFLINE.SELECTION-SCREENCOMMENT1(28)gv_destFORFIELDp_dest.PARAMETERSp_destTYPEchar30ASLISTBOXVISIBLELENGTH30DEFAULT'RFC1'USER-COMMANDrfc.SELECTION-SCREENPOSITION65.PA...