البحث باكثر من معيار واحدهم التاريخ

PHP كود :
'1
        If ComboBox1.Text <> "" And ComboBox2.Text <> "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = True Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%'and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            
        End If

        '2
        If ComboBox1.Text <> "" And ComboBox2.Text <> "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = False Then
            BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%'and mntka like '%" & a3 & "%'"

        End If

        '3
        If ComboBox1.Text <> "" And ComboBox2.Text <> "" And ComboBox3.Text = "" And DateTimePicker1.ShowCheckBox = False Then
            BindingSource1.Filter = " tgroup1 like '%" & a1 & "%'And tsub like '%" & a2 & "%'"

        End If

        '4
        If ComboBox1.Text <> "" And ComboBox2.Text = "" And ComboBox3.Text = "" And DateTimePicker1.ShowCheckBox = False Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%'"
            BindingSource1.Filter = " tgroup1 like '%" & a2 & "%'"

        End If

        '5
        If ComboBox1.Text <> "" And ComboBox2.Text = "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = True Then

            BindingSource1.Filter = " tgroup1 like '%" & a1 & "%'  and mntka like '%" & a3 & "%'and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "

        End If

        '6
        If ComboBox1.Text = "" And ComboBox2.Text <> "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = True Then
            BindingSource1.Filter = " tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%'and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "

        End If
       
        '7
        If ComboBox1.Text = "" And ComboBox2.Text = "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = True Then
            BindingSource1.Filter = "  mntka like '%" & a3 & "%'and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "

        End If

        '8
        If ComboBox1.Text = "" And ComboBox2.Text = "" And ComboBox3.Text = "" And DateTimePicker1.ShowCheckBox = True Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            BindingSource1.Filter = "  datepro >= '" & a6 & "' and datepro < '" & a7 & "' "

        End If

        '9
        If ComboBox1.Text = "" And ComboBox2.Text <> "" And ComboBox3.Text = "" And DateTimePicker1.ShowCheckBox = False Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            BindingSource1.Filter = "  tsub like '%" & a2 & "%'"

        End If
        '10
        If ComboBox1.Text = "" And ComboBox2.Text = "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = False Then
            BindingSource1.Filter = "  mntka like '%" & a3 & "%'"

        End If
        '11
        If ComboBox1.Text = "" And ComboBox2.Text = "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = False Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            BindingSource1.Filter = "  mntka like '%" & a3 & "%'"
            qq = 10
        End If

       
        '12
        If ComboBox1.Text <> "" And ComboBox2.Text = "" And ComboBox3.Text = "" And DateTimePicker1.ShowCheckBox = True Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            qq = 12
        End If
        '13
        If ComboBox1.Text = "" And ComboBox2.Text <> "" And ComboBox3.Text = "" And DateTimePicker1.ShowCheckBox = True Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            qq = 13
        End If
        '14
        If ComboBox1.Text <> "" And ComboBox2.Text = "" And ComboBox3.Text <> "" And DateTimePicker1.ShowCheckBox = False Then
            'BindingSource1.Filter = " tgroup1 like '%" & a1 & "%' And tsub like '%" & a2 & "%' and mntka like '%" & a3 & "%' and datepro >= '" & a6 & "' and datepro < '" & a7 & "' "
            BindingSource1.Filter = " tgroup1 like '%" & a1 & "%'  and mntka like '%" & a3 & "%'"
            qq = 14
        End If
        '15
        If ComboBox1.Text = "" And ComboBox2.Text = "" And ComboBox3.Text = "" And DateTimePicker1.ShowCheckBox = False Or qq = 0 Then
            MsgBox("          هذا البحث غير موجود", MsgBoxStyle.DefaultButton1, "منظومة        ا         ")

        End If