16-11-15, 07:24 PM
عندي قاعدة بيانات اكسيس 2007 مربوطة بالفيجول بيسك
استخدم كود البحث بالطريقة BindingSource1 الشرط الاول المدخل - الثاني التاريخ ولكن كود البحث عن تاريخ لايعمل
اريد تعديل البحث عن التاريخ
استخدم كود البحث بالطريقة BindingSource1 الشرط الاول المدخل - الثاني التاريخ ولكن كود البحث عن تاريخ لايعمل
اريد تعديل البحث عن التاريخ
كود :
If DataSet1.Tables("Table1").Compute("count(Studentsed)".ToLower, "Studentsed like '%".ToLower & TextBox9.Text.Trim & "%' ").ToString > 0 Then
BindingSource1.Filter = "Studentsed like '%".ToLower & TextBox9.Text.ToLower & "%'"
ElseIf IsDate(TextBox9.Text) Then
Dim day As Date = TextBox9.Text
TextBox9.Text = Format(day, "MM/yyyy")
If DataSet1.Tables("Table1").Compute("count(Studentend)".ToLower, "Studentend like '%".ToLower & TextBox9.Text.Trim & "%' ").ToString > 0 Then
BindingSource1.Filter = "Studentend like '%".ToLower & TextBox9.Text & "%'"
End If