05-12-12, 03:32 PM
السلام عليكم
استخدمت خاصية ShowCheckBox فى الاداء DateTimePicker فى البحث ولكن عند تنشيط الخاصية او عدم تنشيطها يستخدمها فى البحث
واليكم الكود الدى استخدمته
ارجو التكرم بمساعدتى فى حل هده المشكلة وتصحيح الكود المرفق
استخدمت خاصية 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