Recordの選択状態の取得

Code:

{let index_box:VBox={VBox}}



{let test_set:RecordSet=

    {RecordSet

        {RecordFields

            {RecordField "A"}

            ,{RecordField "B"}

        }

        ,{RecordData A = "1" , B = "100"}

        ,{RecordData A = "2" , B = "200"}

        ,{RecordData A = "3" , B = "300"}

        ,{RecordData A = "4" , B = "400"}

        ,{RecordData A = "5" , B = "500"}

        ,{RecordData A = "6" , B = "600"}

        ,{RecordData A = "7" , B = "700"}

        ,{RecordData A = "8" , B = "800"}

        ,{RecordData A = "9" , B = "900"}

    }

}



{let test_grid:RecordGrid=

    {RecordGrid

        record-source = test_set

        ,width = {make-elastic minimum-size = 200 }

        ,height = {make-elastic minimum-size = 150 }

        ,{RecordGridColumn "A" ,width=80}

        ,{RecordGridColumn "B" ,width=80}

    }

}



{let btn:CommandButton=

    {CommandButton

        label="ボタン"

        ,{on Action do

             {if test_grid.selection.record-count == 0

              then

                 {popup-message "レコードを選択してください"}

              else

                 ||選択しているレコードのINDEXを取得する

                 {for i:int in test_grid.selection.records do

                     {index_box.add i}

                 }

                 ||INDEXを表示

                 {popup-message index_box}

                 {index_box.clear}

             }

         }

    }

}



{value

    {VBox

        test_grid

        ,btn

    }

}

Code:

def ary = {{Array-of int}}

def recs = test_grid.selection.records

{for i:int in test_grid.selection.records do

 {ary.append i}

}

{ary.sort}

{for i:int in ary do

 {index_box.add i}

}

||INDEXを表示

{popup-message index_box}