RecordGridのフィルター機能について

[rom]

こんにちは。

Recordgrid上でフィルタをかけた場合

フィルタを取り除く方法はありますでしょうか？

現在は右クリックをして「フィルタを取り除く」を選択していますが

何かボタンを押下時に「フィルタを取り除く」機能があればいいなと思い質問します！

[rom]

下記の感じで「set test_grid.filter ={RecordData.default}」をすれば
フィルターを外すことが出来ました。

フィルタの制御を各ボタンでするにはどうすればいいでしょうか？

Code:

{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
             ||フィルタを取り除く
             set test_grid.filter ={RecordData.default}
         }
    }
}

{value
    {VBox
        test_grid
        ,btn
    }
}

[rom]

set test_grid.filter ={RecordData A = "3"}
カラム名＝フィールド名を指定して
フィルターを掛けたい値やらをいれれば出来るのですね。。。

Code:

{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 remove-filter:CommandButton=
    {CommandButton
        label="取り除く"
        ,{on Action do
             ||フィルタを取り除く
             set test_grid.filter ={RecordData.default}
         }
    }
}

{let set-filter:CommandButton=
    {CommandButton
        label="フィルタ"
        ,{on Action do
             ||フィルタを設定
             set test_grid.filter ={RecordData A = "3"}
         }
    }
}

{value
    {VBox
        test_grid
        ,{HBox
             set-filter
            ,remove-filter
         }
    }
}