如何实现wrkqry中类似的左右翻页的功能

passthru

用RPG实现，小菜一碟。

用多个subfile记录，根据F19或F20调用不同的subfile记录。

只要是AS400画面，你能看到的，都可以用RPG来实现。

passthru

原帖由 sucretiger 于 2008-7-24 17:48 发表


老大，这样不行吧，

我想实现的是这样的功能：

首先用户可以自己指定要显示的ＰＦ中的字段，比如我的ＰＦ有１００个字段，然后用户选择了10个，那么，生成的subfile就要显示这十个字段．

也就是说 ...

在dds中定义10个subfile

passthru

比如定义了三个subfile。第一个subfile显示字段1到字段10；以此类推。在rpg程序中：

  BegSr  sDisplay；
       Select；
            When mChose =1；         
                  ExFmt   SubSfl1；
        When mChose =2；
            ExFmt   SubSfl2；
        When mChose =3；
            ExFmt   SubSfl3；
     EndSl；
     .........
  Endsr；

  ............

   BegSr sF19；
      If mChose <3;
         mChose = mChose + 1;
         Endif;
   EndSr;

   BegSr sF20；
     If mChose >1;
        mChose = mChose - 1;
        Endif;
   EndSr;

[ 本帖最后由 passthru 于 2008-7-25 10:13 编辑 ]

passthru

如果是一条记录的字段超出屏幕显示，就用多个subfile。

如果一个字段用subfile显示，超出屏幕显示，就用subfile定义的这个字段的显示长度，或用subfile的折叠键字。

passthru

原帖由 sucretiger 于 2008-7-26 09:56 发表



可能是我没有把需求说明白:
假设一个PF,里面定义有100个字段,像WRKQRY一样,用户是可以任意选择所需要显示的字段的,而且顺序也可以任意指定的.

像您所说的那样,每10个字段写成一个subfile,假如我想显示 ...

It's a kill for programming.

在query之后，用ovrdbf。在rpg程序中判断query之后的字段是否为空，如果为空为非选定的字段。

为空可能处理不严密。可以在query处理时，记录query 字段筛选的字段记录。

把非选定的字段送到subfile的显示字段。如果不烦的话，可以设置rpg指示器，标明多个显示组合。或者，根据被挑选显示字段的组合（rpg程序判断），挑选subfile，然后处理。

[ 本帖最后由 passthru 于 2008-8-12 09:24 编辑 ]