منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - البحث باكثر من معيار واحدهم التاريخ

السلام عليكم
استخدمت خاصية ShowCheckBox فى الاداء DateTimePicker فى البحث ولكن عند تنشيط الخاصية او عدم تنشيطها يستخدمها فى البحث
واليكم الكود الدى استخدمته
ارجو التكرم بمساعدتى فى حل هده المشكلة وتصحيح الكود المرفق

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

صالح الشنطى