可点击的网格而不是可编辑的

时间:2017-05-30 08:08:10

标签: cobol

我的网格屏幕设置如下:

console.log($(this))

运行网格时,它会加载列等,但是当我单击/双击它时会进入编辑器模式。我希望网格处理双击作为函数来打开一条线。

任何人都知道我能做些什么来做到这一点?如果您需要更多代码来更好地了解它,请告诉我。

1 个答案:

答案 0 :(得分:0)

您正在ENTRY-REASON元素上寻找GRID特殊属性。

https://supportline.microfocus.com/documentation/acucorpproducts/docs/v6_online_doc/gtman2/gt2546.htm

  

ENTRY-REASON(字母数字)

     

此属性记录导致网格移动的用户操作   进入模式。它在MSG-BEGIN-ENTRY事件之前立即设置   生成,并保留,直到被另一个覆盖   MSG-BEGIN-ENTRY事件或直到网格被破坏。

     

编码是单个PIC X字符,如下所示:

     

<强> X&#34; 00&#34;
  一个X&#34; 00&#34; (binary 0,ASCII null)值表示用户   双击单元格

     

<强> X&#34; 0D&#34;
  一个X&#34; 0D&#34; (二进制13,ASCII   carriage-return)值表示用户按下了键   否则,任何其他值都是用户按下的键。对于   例如,如果用户开始输入&#34; John,&#34;那封信&#34; J&#34;是   ENTRY-REASON返回。

     

ENTRY-REASON只能查询。设置它没有任何效果。你可以   在MSG-BEGIN-ENTRY事件期间查询ENTRY-REASON以确定   是什么导致了当前的入门。请注意,您可以   如果您愿意将EVENT-ACTION-FAIL移动到,则禁止进入   事件 - 行动并从事件程序返回。

考虑到这一点,以及您的代码,您的KUN-LISTE-SAVE段可以

KUN-LISTE-SAVE.
    EVALUATE EVENT-TYPE
       WHEN MSG-BEGIN-ENTRY
          INQUIRE SCR-KUN-LISTE ENTRY-REASON = YOUR-ENTRY-REASON
          IF YOUR-ENTRY-REASON = X"00"
            PERFORM YOUR-ON-DBL-CLICK
          END-IF
    END-EVALUATE.