Private m_frenchCountries As New List( Of String)( New String( 27 )
{ "Belgium", "Benin", "Burkina-Faso", "Burundi",
"Cameroon", "Canada", "Central African Republic", "Chad", "Comoros",
"Congo", "Djibouti", "France", "Gabon", "Guinea", "Haiti", "Ivory Coast",
"Luxembourg", "Madagascar", "Mali", "Monaco", "Niger", "Rwanda",
"Senegal", "Seychelles", "Switzerland", "Togo", "Vanuatu" } )
Private Function CreateFilterExpression() As OrFilterExpression
Dim childExpressions As New List( Of FilterExpressionBase )()
Dim country As String
For Each country In m_frenchCountries
Dim expression As New FilterExpression( "ShipCountry", FilterOperator.Equal, country, False )
childExpressions.Add( expression )
Next country
Return New OrFilterExpression( childExpressions )
End Function
Private m_filterExpression As OrFilterExpression = Nothing
Private Sub CheckBox_Checked( ByVal sender As Object, ByVal e As RoutedEventArgs )
If m_filterExpression Is Nothing Then
m_filterExpression = Me.CreateFilterExpression()
End If
Me.sldgDataGridControl.FilterExpression = m_filterExpression
End Sub
Private Sub CheckBox_Unchecked( ByVal sender As Object, ByVal e A RoutedEventArgs )
Me.sldgDataGridControl.FilterExpression = Nothing
End Sub