تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث باكثر من معيار واحدهم التاريخ
#1
السلام عليكم
استخدمت خاصية 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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كود البحث Search khaled12345 5 212 16-07-17, 08:22 PM
آخر رد: سعود
  [سؤال] استفسار عن كود البحث المتعدد Marwan9990 22 941 15-07-17, 11:51 AM
آخر رد: أبوبكر سويدان
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 653 03-07-17, 05:04 AM
آخر رد: K39
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 459 24-10-16, 07:54 PM
آخر رد: saimon
  مشكله في عملية البحث علي كعبي 12 631 01-06-16, 01:21 AM
آخر رد: علي كعبي
  [VB.NET] مشكلة ترحيل واستدعاء التاريخ في sql mazen.excel 6 687 23-04-16, 03:13 AM
آخر رد: محمد كريّم
Question [سؤال] كود البحث طول جدا و بطى alims 6 601 23-01-16, 06:11 PM
آخر رد: alims
  مثال على البحث في جدولين بالداتا قريد sql rookan 6 1,205 12-01-16, 01:17 PM
آخر رد: abdhassan
  [سؤال] حفظ التاريخ في sql moha11 5 838 15-09-15, 05:40 PM
آخر رد: أبو عمر
  [VB.NET] ارجو المساعده في كود البحث عن تاريخ DArk LiGhT 1 514 13-08-15, 11:54 PM
آخر رد: Sajad

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم