请教table control屏幕重画后选中行选中标志丢失的问题

ryq0000 · 发表于 2008-7-9 08:09

原帖由 weddingmax 于 2008-7-8 23:09 发表
顺便说一下，在table control属性里面设置为单选，只能实现在当前表示的几行里面只能但选。
比如现在换面显示的行的范围为第5行到第14行。那么在这个范围里面你只能够有一条数据是被选中的。
但是你忘下面滚动的时候，比如现在表示范围为15到24行，在这个范围里面你又可以选中一条了。
那样就变成整个table control中有两条数据被选中了。

哎！

还有这样的啊..

dreamgift · 发表于 2008-7-9 08:51

原帖由 weddingmax 于 2008-7-8 23:09 发表
顺便说一下，在table control属性里面设置为单选，只能实现在当前表示的几行里面只能但选。
比如现在换面显示的行的范围为第5行到第14行。那么在这个范围里面你只能够有一条数据是被选中的。
但是你忘下面滚动的时候，比如现在表示范围为15到24行，在这个范围里面你又可以选中一条了。
那样就变成整个table control中有两条数据被选中了。

哎！

是可以解决的.

只要了解了MODULE 的 ON REQUEST 和 ON INPUT.  就可以完美解决这样的问题.

出现上面的问题只是因为PAI中的LOOP是相当于

LOOP ** FROM TC_**-CURRENT_LINE TO ( TC_**-CURRENT_LINE + G_TC_**_LINES ).

也就是LOOP从屏幕的第一条在内表中的索引到屏幕最后一条在内表中的索引.

其实你选择的行一定是在这个范围内的.  只要你令这条不在这个范围内了(滚动鼠标滚轮或是拖动滚动条)就一定出发了PAI.

那你就可以做相应的操作了. 试试就知道了  用我说的MODULE的属性.

VagrantLee · 发表于 2008-7-9 09:05

学习！

weddingmax · 发表于 2008-7-9 10:30

再次回复楼主，今天来到公司，把SOURCE给你贴上来。
pai里面：
LOOP WITH CONTROL TCL_DETAIL_2.
MODULE MDL_SET_TABLECONTROL_9502.
ENDLOOP.

主程序里面：
LN_END_LINE = TCL_DETAIL_2-TOP_LINE + 12.       “我的TABLE CONTROL一页显示12行

MODULE MDL_SET_TABLECONTROL_9502 INPUT.
   IF  TCL_DETAIL_2-CURRENT_LINE BETWEEN TCL_DETAIL_2-TOP_LINE
                                                                  AND LN_END_LINE.
*-- 当选中的行在画面显示的范围内的时候，把选中标志修改回内部表中
      MODIFY  TBL_DETAIL FROM  HE_DETAIL
                                       INDEX TCL_DETAIL_2-CURRENT_LINE
                        TRANSPORTING SELFLAG.
   ELSE.
*-- 当选中的行不在画面显示的范围内的时候，把选中标志清空后再修改回内部表中
      CLEAR HE_DETAIL-SELFLAG.
      MODIFY  TBL_DETAIL FROM  HE_DETAIL
                                       INDEX TCL_DETAIL_2-CURRENT_LINE
                        TRANSPORTING SELFLAG.
   ENDIF.
ENDMODULE.

ryq0000 · 发表于 2008-7-9 10:56

原帖由 weddingmax 于 2008-7-9 10:30 发表
再次回复楼主，今天来到公司，把SOURCE给你贴上来。
pai里面：
LOOP WITH CONTROL TCL_DETAIL_2.
MODULE MDL_SET_TABLECONTROL_9502.
ENDLOOP.

主程序里面：
LN_END_LINE = TCL_DETAIL_2-TOP_LINE + 12.       “我的TABLE CONTROL一页显示12行

MODULE MDL_SET_TABLECONTROL_9502 INPUT.
   IF  TCL_DETAIL_2-CURRENT_LINE BETWEEN TCL_DETAIL_2-TOP_LINE
                                                                  AND LN_END_LINE.
*-- 当选中的行在画面显示的范围内的时候，把选中标志修改回内部表中
      MODIFY  TBL_DETAIL FROM  HE_DETAIL
                                       INDEX TCL_DETAIL_2-CURRENT_LINE
                        TRANSPORTING SELFLAG.
   ELSE.
*-- 当选中的行不在画面显示的范围内的时候，把选中标志清空后再修改回内部表中
      CLEAR HE_DETAIL-SELFLAG.
      MODIFY  TBL_DETAIL FROM  HE_DETAIL
                                       INDEX TCL_DETAIL_2-CURRENT_LINE
                        TRANSPORTING SELFLAG.
   ENDIF.
ENDMODULE.

谢谢,学习了.

cutepollux · 发表于 2008-7-9 19:31

谢谢，学习了，向各位高人学习

cutepollux · 发表于 2008-7-9 19:33

明天去公司测试，今天出差去了

cutepollux · 发表于 2008-7-10 10:33

原帖由 weddingmax 于 2008-7-9 10:30 发表
再次回复楼主，今天来到公司，把SOURCE给你贴上来。
pai里面：
LOOP WITH CONTROL TCL_DETAIL_2.
MODULE MDL_SET_TABLECONTROL_9502.
ENDLOOP.

主程序里面：
LN_END_LINE = TCL_DETAIL_2-TOP_LINE + 12.       “我的TABLE CONTROL一页显示12行

MODULE MDL_SET_TABLECONTROL_9502 INPUT.
   IF  TCL_DETAIL_2-CURRENT_LINE BETWEEN TCL_DETAIL_2-TOP_LINE
                                                                  AND LN_END_LINE.
*-- 当选中的行在画面显示的范围内的时候，把选中标志修改回内部表中
      MODIFY  TBL_DETAIL FROM  HE_DETAIL
                                       INDEX TCL_DETAIL_2-CURRENT_LINE
                        TRANSPORTING SELFLAG.
   ELSE.
*-- 当选中的行不在画面显示的范围内的时候，把选中标志清空后再修改回内部表中
      CLEAR HE_DETAIL-SELFLAG.
      MODIFY  TBL_DETAIL FROM  HE_DETAIL
                                       INDEX TCL_DETAIL_2-CURRENT_LINE
                        TRANSPORTING SELFLAG.
   ENDIF.
ENDMODULE.

但是这样做有一个问题阿，就是如果选中一行，然后滚动，使之不可见，然后再滚动，使之可见，就会发现这一条记录又变成未选中状态了

cutepollux · 发表于 2008-7-10 10:36

原帖由 dreamgift 于 2008-7-9 08:51 发表

是可以解决的.

只要了解了MODULE 的 ON REQUEST 和 ON INPUT.  就可以完美解决这样的问题.

出现上面的问题只是因为PAI中的LOOP是相当于

LOOP ** FROM TC_**-CURRENT_LINE TO ( TC_**-CURRENT_LINE + G_TC_**_LINES ).

也就是LOOP从屏幕的第一条在内表中的索引到屏幕最后一条在内表中的索引.

其实你选择的行一定是在这个范围内的.  只要你令这条不在这个范围内了(滚动鼠标滚轮或是拖动滚动条)就一定出发了PAI.

那你就可以做相应的操作了. 试试就知道了  用我说的MODULE的属性.

有点不明白，能具体讲讲嘛？

dreamgift · 发表于 2008-7-10 10:45

PAI 的 LOOP 下面这样写.
FIELD TH_**-MARK(行选择的标识字段) MODULE MOD_*** ON INPUT.

在MOD_***中这样写.
DATA TH_**BU TYPE TH_**.
CLEAR TH_**BU.
MODIFY  TD_** FROM TH_**BU
            TRANSPORTING MARK
                        WHERE MARK = 'X'.
MODIFY TD_** FROM TH_** INDEX TC_**-CURRENT_LINE.

这样你说的问题应该都不会有了.

[ 本帖最后由 dreamgift 于 2008-7-10 17:39 编辑 ]