تقييم الموضوع :
  • 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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 111 24-10-16, 07:54 PM
آخر رد: saimon
  مشكله في عملية البحث علي كعبي 12 227 01-06-16, 01:21 AM
آخر رد: علي كعبي
  [VB.NET] مشكلة ترحيل واستدعاء التاريخ في sql mazen.excel 6 369 23-04-16, 03:13 AM
آخر رد: محمد كريّم
Question [سؤال] كود البحث طول جدا و بطى alims 6 392 23-01-16, 06:11 PM
آخر رد: alims
  مثال على البحث في جدولين بالداتا قريد sql rookan 6 763 12-01-16, 01:17 PM
آخر رد: abdhassan
  [سؤال] حفظ التاريخ في sql moha11 5 514 15-09-15, 05:40 PM
آخر رد: أبو عمر
  [VB.NET] ارجو المساعده في كود البحث عن تاريخ DArk LiGhT 1 343 13-08-15, 11:54 PM
آخر رد: Sajad
  مشكلة في إظهار عمود التاريخ في داتا جريد فيو mofhmy 4 862 13-08-15, 11:15 PM
آخر رد: أبوبكر سويدان
  خطأ فى التاريخ بخصوص Allow Null مصطفى_ظيمة 2 416 24-07-15, 03:08 PM
آخر رد: مصطفى_ظيمة
  [سؤال] البحث اكتر من مره لا يعرض الصور sa86ra 0 348 07-04-15, 07:08 PM
آخر رد: sa86ra

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


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