How to copy and paste the node?

Question

please help~~~
不知道这里有没有搞这个的中国人啊~~~说英文实在是件很麻烦的事。。。。。。。
Edited by: user12393902 on 2009/12/28 23:32

Answer 1

--節点のレベルを判別する、ラベル<>1の場合、子節点の下で新たな節点を追加する
     IF ( PKG_変数.NODE_DEPTH_STR != 1 ) THEN
     GO_BLOCK('EMP');
     FIRST_RECORD;
     FOR CNT_NODE IN 1..CNT_EMP-1 LOOP
          IF ( :EMP.CHK = '1' ) THEN
               LV_NODE_LABEL := :EMP.ENAME;
               LV_NODE_VALUE := :EMP.EMPNO;
--SET_ALERT_PROPERTY('ALT',ALERT_MESSAGE_TEXT,'PKG_変数.NODE_LABEL_STR:'||PKG_変数.NODE_LABEL_STR);
--RET := SHOW_ALERT('ALT');
     CHILD_NODE := FTREE.ADD_TREE_NODE( HTREE,
     PKG_変数.TRIGGER_NODE_STR,
     FTREE.PARENT_OFFSET,
     FTREE.LAST_CHILD,
     FTREE.EXPANDED_NODE,
     LV_NODE_LABEL,
     NULL,
     LV_NODE_VALUE );
          END IF;
          NEXT_RECORD;
     END LOOP;
     IF ( :EMP.CHK = 1 ) THEN
          LV_NODE_LABEL := :EMP.ENAME;
          LV_NODE_VALUE := :EMP.EMPNO;
     CHILD_NODE := FTREE.ADD_TREE_NODE( HTREE,
     PKG_変数.TRIGGER_NODE_STR,
     FTREE.PARENT_OFFSET,
     FTREE.LAST_CHILD,
     FTREE.EXPANDED_NODE,
     LV_NODE_LABEL,
     NULL,
     LV_NODE_VALUE );
     END IF;
     --節点のレベルを判別する、ラベル=1の場合、新たな根節点を追加する     
     ELSE
     GO_BLOCK( 'DEPT' );
     GO_RECORD( :SYSTEM.CURSOR_RECORD );
     NODE_LABEL := :DEPT.DEPT_NAME;
     NODE_VALUE := :DEPT.DEPT_NO;
     HTREE := FIND_ITEM( 'BLCK_TREE.TREE' );
     NEW_NODE := FTREE.ADD_TREE_NODE( HTREE,
     FTREE.ROOT_NODE,
     FTREE.PARENT_OFFSET,
     FTREE.LAST_CHILD,
FTREE.EXPANDED_NODE,
NODE_LABEL,
NULL,
NODE_VALUE );
     GO_BLOCK('EMP');
     FIRST_RECORD;
     FOR CNT_NODE IN 1..CNT_EMP-1 LOOP
          IF ( :EMP.CHK = '1' ) THEN
               LV_NODE_LABEL := :EMP.ENAME;
               LV_NODE_VALUE := :EMP.EMPNO;
     FIND_NODE := FTREE.FIND_TREE_NODE( HTREE,
     NODE_VALUE,
     FTREE.FIND_NEXT,
     FTREE.NODE_VALUE,
     FTREE.ROOT_NODE,
     FTREE.ROOT_NODE );
     CHILD_NODE := FTREE.ADD_TREE_NODE( HTREE,
     FIND_NODE,
     FTREE.PARENT_OFFSET,
     FTREE.LAST_CHILD,
     FTREE.EXPANDED_NODE,
     LV_NODE_LABEL,
     NULL,
     LV_NODE_VALUE );
--SET_ALERT_PROPERTY('ALT',ALERT_MESSAGE_TEXT,'LV_NODE_VALUE:'||LV_NODE_VALUE);
--RET := SHOW_ALERT('ALT');
          END IF;
          NEXT_RECORD;
     END LOOP;
     IF ( :EMP.CHK = 1 ) THEN
          LV_NODE_LABEL := :EMP.ENAME;
          LV_NODE_VALUE := :EMP.EMPNO;
     FIND_NODE := FTREE.FIND_TREE_NODE( HTREE,
     NODE_VALUE,
     FTREE.FIND_NEXT,
     FTREE.NODE_VALUE,
     FTREE.ROOT_NODE,
     FTREE.ROOT_NODE );
     CHILD_NODE := FTREE.Add_Tree_Node( HTREE,
     FIND_NODE,
     FTREE.PARENT_OFFSET,
     FTREE.LAST_CHILD,
     FTREE.EXPANDED_NODE,
     LV_NODE_LABEL,
     NULL,
     LV_NODE_VALUE );
     END IF;
END IF;