博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
webdynpro的select_option示例
阅读量:6274 次
发布时间:2019-06-22

本文共 2345 字,大约阅读时间需要 7 分钟。

需求,输入航线代码和航线编号区间,查询记录存在表中显示,并不是alv显示

1、使用组件WDR_SELECT_OPTIONS.

2.在组件控制器中加入以下组件

3、在视图属性中也添加该组件

4、创建节点

5、控件设计

6、窗口下的视图中嵌套这个视图

7、设计视图初始化方法WDDOINIT

method WDDOINIT .DATA lo_cmp_usage TYPE REF TO if_wd_component_usage.  lo_cmp_usage = wd_this->wd_cpuse_select_options( ).  IF lo_cmp_usage->has_active_component( ) IS INITIAL.    lo_cmp_usage->create_component( ).  ELSE.    EXIT.  ENDIF.*---选择屏幕的引用  DATA lo_interfacecontroller TYPE REF TO iwci_wdr_select_options .  lo_interfacecontroller =   wd_this->wd_cpifc_select_options( ).  "修改SELECT_OPTIONS  wd_this->m_handler = lo_interfacecontroller->init_selection_screen(   ).*---设置全局信息  CALL METHOD wd_this->m_handler->set_global_options    EXPORTING      i_display_btn_cancel  = abap_false      i_display_btn_check   = abap_false      i_display_btn_reset   = abap_false      i_display_btn_execute = abap_false.  DATA: lr_field TYPE REF TO data.  DEFINE mcr_sel.    free lr_field.    lr_field = wd_this->m_handler->create_range_table( &1 ).    wd_this->m_handler->add_selection_field(      i_id = &1                                "字段参考类型      i_description = &2                       "描述      it_result = lr_field      i_read_only = &3 ).  END-OF-DEFINITION.  mcr_sel 'S_CARR_ID' '航线代码' abap_false.  mcr_sel 'S_CONN_ID' '航班编号' abap_false.endmethod.

8、设计按钮SEARCH事件方法

method ONACTIONSEARCH .*获取SELECT OPTIONS  FIELD-SYMBOLS: 
TYPE ANY TABLE,
TYPE ANY TABLE. DATA lv_CARRID TYPE S_CARR_ID . "屏幕上输入的 DATA lv_CONNID TYPE S_CONN_ID . "屏幕上输入的 DATA:lo_data TYPE REF TO data. FREE lo_data. lo_data = wd_this->m_handler->get_range_table_of_sel_field( 'S_CARR_ID' ). ASSIGN lo_data->* TO
. FREE lo_data. lo_data = wd_this->m_handler->get_range_table_of_sel_field( 'S_CONN_ID' ). ASSIGN lo_data->* TO
.*数据绑定 DATA lo_nd_sflight TYPE REF TO if_wd_context_node. DATA lo_el_sflight TYPE REF TO if_wd_context_element. DATA lt_sflight TYPE wd_this->Elements_sflight. lo_nd_sflight = wd_context->get_child_node( name = wd_this->wdctx_sflight ). SELECT * INTO TABLE lt_sflight from sflight WHERE CARRID in
AND CONNID in
. lo_nd_sflight->BIND_TABLE( NEW_ITEMS = lt_sflight ).endmethod.

9、效果展示

 

 

转载于:https://www.cnblogs.com/caizjian/p/3769937.html

你可能感兴趣的文章
重叠(Overlapped)IO模型
查看>>
ffmpeg study 1
查看>>
Git使用教程
查看>>
使用shell脚本自动监控后台进程,并能自动重启
查看>>
Flex&Bison手册
查看>>
MySQL 5.6 for Windows 解压缩版配置安装
查看>>
solrCloud+tomcat+zookeeper集群配置
查看>>
/etc/fstab,/etc/mtab,和 /proc/mounts
查看>>
Apache kafka 简介
查看>>
socket通信Demo
查看>>
技术人员的焦虑
查看>>
js 判断整数
查看>>
建设网站应该考虑哪些因素
查看>>
mongodb $exists
查看>>
js实现页面跳转的几种方式
查看>>
sbt笔记一 hello-sbt
查看>>
常用链接
查看>>
pitfall override private method
查看>>
!important 和 * ----hack
查看>>
聊天界面图文混排
查看>>