ABAP:ON CHANGE OF的坑

(1/7)背景


由于AT NEW field会判断field和它前面的所有字段,而ON CHANGE OF没有这个要求,所以后者就有了登上舞台的空间。

(2/7)正常情况


现在有一个内表GT_TAB,包括一个字段FIELD1,内容如下:

行FIELD1的值112132

LOOP GT_TAB时,ON CHANGE OF GT_TAB-FIELD1会在第一和第三行被触发。

(3/7)非正常情况


GT_TAB内容如下:

行FIELD1的值1121

没有疑问,第一次LOOP GT_TAB时,ON CHANGE OF GT_TAB-FIELD1会在第一行被触发。

可是,如果第二次LOOP呢?

答案是:不会触发ON CHANGE OF。

而且,即便你清空GT_TAB的内表或工作区再重新赋值,都没有用。

(4/7)示例说明


为此我做了一个示例,包含的功能如下:

(连续的两次循环时,内表的值都是无重复的,我们重点关注第二次循环是否触发ON CHANGE OF的情况)

操作内表是否触发构建新内表,首次循环全局内表

触发

第二次循环全局内表不触发清空内表后重新赋值并循环全局内表不触发清空工作区后重新循环全局内表不触发清空内表+工作区后重新赋值并循环全局内表不触发调用FORM循环局部内表局部内表

触发

再次调用FORM循环局部内表局部内表

不触发

换一个FORM2,同名局部内表局部内表

触发

再次调用FORM2循环局部内表局部内表

不触发

这是一个比较隐蔽的坑,因为在某些情况下,我们不能预知GT_TAB-FIELD1会不会一定都是多个值的。如果某一次循环的时候,我们判断的字段没有重复值,那么下次循环的时候,如果内表中的首条记录恰巧与我们上一次循环的值相同,ON CHANGE OF就不会被触发。

而且,不管是全局变量还是局部变量,都有这样的情况。

(5/7)示例代码


有兴趣的同学,可以自己修改代码以测试一下这样的情况:

1、首次循环,内表中是1 1两条数据;

2、再次循环,内表中是1 2 两条数据

REPORT ztest_abap_ll.SELECTION-SCREEN PUSHBUTTON /10(40) clear1 USER-COMMAND clear1.SELECTION-SCREEN SKIP 1.SELECTION-SCREEN PUSHBUTTON /10(40) clear2 USER-COMMAND clear2.SELECTION-SCREEN SKIP 1.SELECTION-SCREEN PUSHBUTTON /10(40) create USER-COMMAND create.SELECTION-SCREEN SKIP 1.SELECTION-SCREEN PUSHBUTTON /10(40) loop1 USER-COMMAND loop1.SELECTION-SCREEN SKIP 1.SELECTION-SCREEN PUSHBUTTON /10(40) loop2 USER-COMMAND loop2.SELECTION-SCREEN SKIP 1.SELECTION-SCREEN PUSHBUTTON /10(40) loop3 USER-COMMAND loop3.TYPES:BEGIN OF ty_tab,        field1 TYPE string,      END OF ty_tab,      tyt_tab TYPE TABLE OF ty_tab.DATA: gt_tab TYPE tyt_tab WITH HEADER LINE,      g_msg TYPE string,      g_msgty TYPE c.INITIALIZATION.  clear1 = '清空内表'.  clear2 = '清空工作区'.  create = '向内表中插入两条数据'.  loop1 = '循环全局内表'.  loop2 = '全局内表放入局部内表后再循环'.  loop3 = '全局内表放入另一个FORM的同名局部内表后再循环'.AT SELECTION-SCREEN.  CASE sy-ucomm.    WHEN 'CLEAR1'.      CLEAR: gt_tab[].    WHEN 'CLEAR2'.      CLEAR: gt_tab.    WHEN 'CREATE'.      "插入两条数据      gt_tab-field1 = '1'.      APPEND gt_tab.      APPEND gt_tab.    WHEN 'LOOP1'.      PERFORM loop1.    WHEN 'LOOP2'.      PERFORM loop2.    WHEN 'LOOP3'.      PERFORM loop3.  ENDCASE.FORM loop1.  LOOP AT gt_tab.    ON CHANGE OF gt_tab-field1.      g_msg = '当前索引' && sy-tabix && ',触发了ON CHANGE OF'.      g_msgty = 'S'.    ELSE.      g_msg = '当前索引' && sy-tabix && ',没有触发ON CHANGE OF'.      g_msgty = 'E'.    ENDON.    MESSAGE g_msg TYPE 'I' DISPLAY LIKE g_msgty.  ENDLOOP.ENDFORM.FORM loop2.  DATA: lt_tab TYPE tyt_tab WITH HEADER LINE.  lt_tab[] = gt_tab[].  LOOP AT lt_tab.    ON CHANGE OF lt_tab-field1.      g_msg = '当前索引' && sy-tabix && ',触发了ON CHANGE OF'.      g_msgty = 'S'.    ELSE.      g_msg = '当前索引' && sy-tabix && ',没有触发ON CHANGE OF'.      g_msgty = 'E'.    ENDON.    MESSAGE g_msg TYPE 'I' DISPLAY LIKE g_msgty.  ENDLOOP.ENDFORM.FORM loop3.  DATA: lt_tab TYPE tyt_tab WITH HEADER LINE.  lt_tab[] = gt_tab[].  LOOP AT lt_tab.    ON CHANGE OF lt_tab-field1.      g_msg = '当前索引' && sy-tabix && ',触发了ON CHANGE OF'.      g_msgty = 'S'.    ELSE.      g_msg = '当前索引' && sy-tabix && ',没有触发ON CHANGE OF'.      g_msgty = 'E'.    ENDON.    MESSAGE g_msg TYPE 'I' DISPLAY LIKE g_msgty.  ENDLOOP.ENDFORM.

(6/7)原因分析


根据F1里的说明,可以看到对于ON CHANGE OF的事件,在系统里是有一个类似于帮助变量的东西在支撑的,而且这个帮助变量的生命周期是比我们的FORM、FUNCTION等代码块的周期更长的。

F1里面没有提到的是,它的生命周期与全局变量的生命周期谁更长。不过实践证明了,除非程序退出,否则这个帮助变量是不会消失的。

(7/7)如何规避


个人觉得,用ON CHANGE OF,不如自己定义一个变量,记录一下上次循环的值,当本次的值与上次不一致时,即形同ON CHANGE OF的事件。

如下:

DATA: l_field1 type string.

loop at gt_tab.

if l_field1 <> gt_tab-field1.

"形同ON CHANGE OF

else.

l_field1 = gt_tab-field1.

endif.

endloop.


©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 199,636评论 5 468
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 83,890评论 2 376
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 146,680评论 0 330
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 53,766评论 1 271
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 62,665评论 5 359
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 48,045评论 1 276
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 37,515评论 3 390
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 36,182评论 0 254
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 40,334评论 1 294
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,274评论 2 317
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,319评论 1 329
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 33,002评论 3 315
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 38,599评论 3 303
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,675评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 30,917评论 1 255
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 42,309评论 2 345
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 41,885评论 2 341

推荐阅读更多精彩内容