Chinaunix首页 | 论坛 | 博客
  • 博客访问: 712076
  • 博文数量: 158
  • 博客积分: 6010
  • 博客等级: 准将
  • 技术积分: 1643
  • 用 户 组: 普通用户
  • 注册时间: 2007-10-11 14:37
个人简介

人法地,地法天,天法道,道法自然

文章分类

全部博文(158)

文章存档

2022年(1)

2020年(3)

2016年(1)

2014年(7)

2013年(4)

2010年(5)

2009年(86)

2008年(25)

2007年(26)

我的朋友

分类:

2009-09-23 20:13:56

*ALV响应单元格双击事件
form user_command using r_ucomm like sy-ucomm
                  rs_selfield type slis_selfield.
  case r_ucomm.
    when '&IC1'.
       if rs_selfield-fieldname = 'EBELN' ."双击单元格的列字段
            clear itab.
            read table itab index rs_selfield-tabindex.  "双击单元格的表索引号,也就是行号
*            rs_selfield-value                           "  双击单元格的值(内容)
            call function 'ME_DISPLAY_PURCHASE_DOCUMENT'
               exporting
                  i_ebeln = itab-ebeln
                  i_ebelp = itab-ebelp
                  i_enjoy = 'X'.
       elseif rs_selfield-fieldname = 'MATNR' .
          clear itab.
          read table itab index rs_selfield-tabindex.  "双击单元格的表索引号,也就是行号
          MESSAGE ITAB-WERKS TYPE 'S'.
       endif.
  endcase.
endform.
阅读(3943) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~