Private Sub ComboBox_Filter_SelectedIndexChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles ComboBox_Filter.SelectedIndexChanged
        If Me.PlanningGuideDataDataGridView.RowCount.ToString <> "" Then
            Filter()
        End If
    End Sub
 
    Private Sub ComboBox_Filter2_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      ComboBox_Filter2.SelectedIndexChanged
        If Me.PlanningGuideDataDataGridView.RowCount.ToString <> "" Then
            Filter2()
        End If
    End Sub
 
    Public Sub Filter()
 
        On Error Resume Next
 
        If ComboBox_Filter.Text = "" Then
            Me.PlanningGuideDataBindingSource.Filter = ""
            ComboBox_Filter2.Text = ""
        Else
            Me.PlanningGuideDataBindingSource.Filter = "PM Like '" & Trim( _
              Me.ComboBox_Filter.Text) & "%' OR Designer Like '" & Trim( _
              Me.ComboBox_Filter.Text) & "%'"
            ComboBox_Filter2.Text = ""
        End If
 
        PlanningGuideDataDataGridView.Refresh()
 
        Me.SetCurrentCell()
 
    End Sub
 
    Public Sub Filter2()
 
        On Error Resume Next
 
        If ComboBox_Filter2.Text = "" Then
            Me.PlanningGuideDataBindingSource.Filter = ""
            Filter()
        Else
            Me.PlanningGuideDataBindingSource.Filter = "PM Like '" & Trim( _
              Me.ComboBox_Filter.Text) & "%' AND [Status quotation] Like '" & _
              Me.ComboBox_Filter2.Text & "%'"
        End If
 
        PlanningGuideDataDataGridView.Refresh()
 
        Me.SetCurrentCell()
 
    End Sub