ツリービュー列 - Levelプロパティ

...

ツリービュー列 (PRIM_TVCL) のメンバ
データタイプ - 整数

詳細

Level プロパティは、 プロパティは、 Source プロパティのフィールドがどのレベルのツリーを表すかを決定します。
この機能は、データと KeyPosition に基づいてネストが自動化された Levelled ツリーの機能にのみ適用されます。
ツリーは、レベルに適用されないフィールドに null 値を持つ追加アイテムを自動的に作成します。

例

この例では、3レベルのツリーに部署、部門、従業員のデータが表示されます。  この例では、3レベルのツリーに部署、部門、従業員のデータが表示されます。
DEPTMENT は、 KeyPosition は1で、レベル1の項目を識別するために使用されます。これは非表示の列で、 DEPTDESC は表示に使用されます。
SECTION は、 KeyPosition は1で、レベル2の項目を識別するために使用されます。これは非表示の列で、 SECDESC は表示に使用されます。
EMPNO は、 KeyPosition は1で、レベル3の項目を識別するために使用されます。これは非表示の列で、 FULLNAME は表示に使用されます。
ツリーは、キー列のデータ値に基づいて適切なレベルのアイテムを自動的に作成します。
右側のフィールドには、各項目のフィールド値が表示されます。

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(462) Clientwidth(748) Height(501) Layoutmanager(#TableLayout_1) Left(152) Top(225) Width(764) 

        Define_Com Class(#PRIM_TBLO) Name(#TableLayout_1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(2) Parent(#TableLayout_1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Row_1) Displayposition(1) Parent(#TableLayout_1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Column_1) Displayposition(1) Parent(#TableLayout_1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Item_1) Column(#Column_1) Manage(#Tree) Parent(#TableLayout_1) Row(#Row_1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Alignment(TopLeft) Column(#Column1) Flow(Down) Manage(#DEPTMENT) Parent(#TableLayout_1) Row(#Row_1) Sizing(FitToWidth) Margintop(4) Marginleft(4) Marginright(4)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem2) Column(#Column1) Manage(#DEPTDESC) Parent(#TableLayout_1) Row(#Row_1) Sizing(FitToWidth) Alignment(TopLeft) Flow(Down) Margintop(4) Marginleft(4) Marginright(4)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem3) Column(#Column1) Manage(#SECTION) Parent(#TableLayout_1) Row(#Row_1) Sizing(FitToWidth) Alignment(TopLeft) Flow(Down) Margintop(4) Marginleft(4) Marginright(4)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem4) Column(#Column1) Manage(#SECDESC) Parent(#TableLayout_1) Row(#Row_1) Sizing(FitToWidth) Alignment(TopLeft) Flow(Down) Margintop(4) Marginleft(4) Marginright(4)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem5) Column(#Column1) Manage(#EMPNO) Parent(#TableLayout_1) Row(#Row_1) Sizing(FitToWidth) Alignment(TopLeft) Flow(Down) Margintop(4) Marginleft(4) Marginright(4)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem6) Column(#Column1) Manage(#FULLNAME) Parent(#TableLayout_1) Row(#Row_1) Sizing(FitToWidth) Alignment(TopLeft) Flow(Down) Margintop(4) Marginleft(4) Marginright(4) 

        Define_Com Class(#PRIM_TRVW) Name(#Tree) Columnbuttonheight(20) Componentversion(2) Displayposition(1) Fullrowselect(True) Haslines(False) Height(462) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Width(374)
        Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn1) Level(1) Parent(#Tree) Source(#DEPTMENT) Keyposition(1) Visible(False)
        Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn2) Displayposition(1) Level(1) Parent(#Tree) Source(#DEPTDESC) Sortposition(1)
        Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn3) Level(2) Parent(#Tree) Source(#SECTION) Keyposition(1) Visible(False)
        Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn4) Displayposition(1) Level(2) Parent(#Tree) Source(#SECDESC) Sortposition(1)
        Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn5) Level(3) Parent(#Tree) Source(#EMPNO) Visible(False)
        Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn6) Displayposition(1) Level(3) Parent(#Tree) Source(#FULLNAME) Sortposition(1) 

        Define_Com Class(#DEPTMENT.Visual) Name(#DEPTMENT) Displayposition(2) Left(378) Parent(#COM_OWNER) Tabposition(2) Top(4) Width(366) Readonly(True)
        Define_Com Class(#DEPTDESC.Visual) Name(#DEPTDESC) Displayposition(3) Left(378) Parent(#COM_OWNER) Tabposition(3) Top(29) Width(366) Readonly(True)
        Define_Com Class(#SECTION.Visual) Name(#SECTION) Displayposition(4) Left(378) Parent(#COM_OWNER) Tabposition(4) Top(54) Width(366) Readonly(True)
        Define_Com Class(#SECDESC.Visual) Name(#SECDESC) Displayposition(5) Left(378) Parent(#COM_OWNER) Tabposition(5) Top(79) Width(366) Readonly(True)
        Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Componentversion(1) Displayposition(6) Height(21) Left(378) Parent(#COM_OWNER) Tabposition(6) Usepicklist(False) Width(366) Top(104) Readonly(True)
        Define_Com Class(#FULLNAME.Visual) Name(#FULLNAME) Displayposition(7) Left(378) Parent(#COM_OWNER) Tabposition(7) Top(129) Width(366) Readonly(True) 

        Evtroutine Handling(#Com_owner.CreateInstance) 

           #Com_owner.Load 

        Endroutine 

        Mthroutine Name(Load) 

           Select Fields(*All) From_File(PSLMST) 

              Fetch Fields(#deptdesc) From_File(Deptab) With_Key(#deptment) Keep_Last(100)
              Fetch Fields(#secdesc) From_File(Sectab) With_Key(#deptment #section) Keep_Last(100) 

              #Fullname := ("&1, &2 (&3)").Substitute( #Surname #Givename #Empno ) 

              Add_Entry To_List(#Tree) 

           Endselect 

        Endroutine 

     End_Com

参照

すべてのコンポーネント クラス
テクニカルリファレンステクニカル リファレンス