登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

弹出带选项的对话框供选择  

2011-01-07 16:41:46|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report  ztest_popup.

tablesspopli.

*----------------------------------------------------------------------*
*  define internal tables
*  定义内表
*
*----------------------------------------------------------------------*
datat_spop like spopli occurs with header line"定义供用户选择列表

*----------------------------------------------------------------------*
*  define data
*  定义变量
*
*----------------------------------------------------------------------*
dataanswer type string.              "用于存储用户选择

*----------------------------------------------------------------------*
*  start-of-selection
*  执行屏幕
*
*----------------------------------------------------------------------*

start
-of-selection.

  
perform frm_popup_to_select.

*----------------------------------------------------------------------*
*  form frm_popup_to_select
*  弹出对话框
*
*----------------------------------------------------------------------*
form frm_popup_to_select.
  
refresh t_spop.

  
clear t_spop.
  t_spop
-selflag 'X'.                     "设置选中
  t_spop
-varoption 'MBEW'.                "设置显示的文本
  t_spop
-inactive  ''.                    "设置不可编辑
  
append t_spop.

  
clear t_spop.
  t_spop
-selflag ''.
  t_spop
-varoption '哈哈'.
  t_spop
-inactive  ''.
  
append t_spop.

  
clear t_spop.
  t_spop
-selflag ''.
  t_spop
-varoption 'MSEG'.
  t_spop
-inactive  ''.
  
append t_spop.

  
call function 'POPUP_TO_DECIDE_LIST'
  
exporting
  cursorline               
1
  mark_flag                
' '
  mark_max                 
1
  start_col                
1             "设置开始的列
  start_row                
1              "设置开始的行
  textline1                
'请选择'                          "设置文本行内容1
*   TEXTLINE2                = ' '
*   TEXTLINE3                = ' '
  titel                    
'测试用户选择"设置标题
*   DISPLAY_ONLY             = ' '
  
importing
  answer                   
answer         "获得用户选择,这里返回的值对应是当前列表NO,比如第一个就返回1,第二个返回2。。。。。
  
tables
  t_spopli                 
t_spop         "设置选择列表
  
exceptions
  not_enough_answers       
1
  too_much_answers         
2
  too_much_marks           
3
  
others                   4
  
.
  
if sy-subrc <> 0.
  
endif.
  
write:/ answer."当选择取消时,answer = 'A'.

endform.                    "frm_popup_to_select

  评论这张
 
阅读(367)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018