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

sucretiger

如何实现wrkqry中类似的Ｆ１９和Ｆ２０的功能

使用ＲＰＧ如何实现

因为无论ＰＦ有多少个字段，都会自动显示得下的．

想知道实现的逻辑．

[ 本帖最后由 sucretiger 于 2008-7-24 17:45 编辑 ]

sucretiger

怎么没有人回复啊．．．

fairyboy

好象是可以调用API实现,具体我再去找找程序.以前好象看到过

passthru

用RPG实现，小菜一碟。

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

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

pantierui

有没有现成的例子，贴出来学习学习。

sucretiger

原帖由 passthru 于 2008-7-24 17:32 发表
用RPG实现，小菜一碟。

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

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

老大，这样不行吧，

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

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

也就是说subfile要动态生成的．

你说的多个subfile，不是要先写死dds的吗？这样可以吗？

sucretiger

原帖由 fairyboy 于 2008-7-24 17:18 发表
好象是可以调用API实现,具体我再去找找程序.以前好象看到过

好人啊，

期待中...

passthru

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


老大，这样不行吧，

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

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

也就是说 ...

在dds中定义10个subfile

wdz315

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


老大，这样不行吧，

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

首先用户可以自己指定要显示的ＰＦ中的字段，比如我的ＰＦ有１００个字段，然后用户选择了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 编辑 ]