SUBFILE难点(20分)

sucretiger

如何使用RPG实现类似于WRKQRY中的左右翻屏功能?

justincar

建立两个subfile control: A and B

subfile control A 显示资料的前半段
subfile control B 显示资料的后半段

当进入画面时候，先显示SUBCTL A的内容(EXFMT SUBCTLA), 然后按F20, 就显示subfile control B的内容(EXFMT SUBCTLB)。
然后按F19, 就显示subfile control A 的内容 (EXFMT SUBCTLA).

当然要控制好，两个subfile的资料内容。

marryss

你要用左右移动页面，做什么？
想法是好的，但感觉没有什么实在的意义。
dspf 一般是 24 *８０　的

demoneyes9

定义好变量几个变量：整个栏位有多长，每次左右移动的量等，然后在程序里设定控制这些变量。每次左右移动时，SUBFILE的中的值也要跟着合理的改变。

passthru

二楼的大体思路是对的。不过，如果我实现的话，F19往右翻，F20往左翻，我会用一个数字变量用做用户控制subfile的记录数，并以一个大维数的数组控制subfile的key，或组合key。并非系统控制subfile计数，而是程序控制subfile的计数。

设置一个计屏数字变量pCont，初始值为1.

/Free
       .......
       Dow *In03 = *off;
          If *In20 = *on and pCont =2;
             pCont = pCont - 1;
             *In20 = *off;
          ElseIf *In19 = *on and pCont = 1;
             pCont = pCont + 1;
             *In19 = *off;
          EndIf;

          If  pCont = 1；
             ExFmt SubCtlA;
          Elseif pCont = 2;
              ExFmt SubCtlB;
          Endif；
     .....
      EndDo;
/End-Free

有N屏，
     Dow *In03 = *off；
        If *In19 = *on and pCont <N;
                 pCont = pCont + 1;
                 *In19 = *off;
            ElseIf *In20 = *on and pCont > 1;
                 pCont = pCont - 1;
                *In20 = *off;
            EndIf;

            Select;
               When pCont = 1;
                   ExFmt SubCtlA;         
               When pCont = 2;
                   ExFmt SubCtlB;         
               ......
               When pCont = N;
                   ExFmt SubCtlN;         
               Other;
                   ExFmt SubCtlA;         
            EndSl；
      .....
         EndDo;

[ 本帖最后由 passthru 于 2009-7-17 08:22 编辑 ]