27-09-18, 03:06 PM
(26-09-18, 11:44 PM)elgokr كتب :(26-09-18, 10:33 AM)محمد اسماعيل كتب : مرحبا بك اخي elgokr
بخصوص التاخير ===> ان تاتي متاخر خيرا من ألا تاتي
لي طلب اخر اعز الله قدرك
انا عايز ابحث بعمود التاريخ السابق انشائة من الداتا تايمر مباشرة
استخدمت الكود التالي للبحث والفلترة ولكن لايعمل علي الرغم من ان نفس الكود يعمل عند اقتصاص التاريخ فقط من خلايا الداتا جريد فيو ويعمل نفس الكود التالي علي اي عمود بالداتا جريد فيو للبحث عن اي شيء
كود :
On Error Resume Next
For i As Integer = DATAGRID_NAME.Rows.Count - 1 To 0 Step -1
If Not DATAGRID_NAME.Rows(i).Cells(1).Value.ToString.Contains(DATETIM_START.Value.ToShortDateString) Or DATAGRID_NAME.Rows(i).Cells(1).Value = Nothing Then
DATAGRID_NAME.Rows.RemoveAt(i)
End If
Next
عدم عمل كود البحثلان القيمة فى الجدول للتاريخ عبارة عن نصوللبحث بالطريقة يجب ان تجعل هيئة التاريخ طبقاً لما هو موجود فى النص
بمعنى لو النص يحتوى على التاريخ بالشكل التالى30/12/2018
فيجب ان تجعل القيمة المشتخدمة من DATETIM_STARTبنفس الطريقة بمعنىبدل من استخدام ToShortDateStringاستخدم ToString لتجعل هيئتها بالشكل التالى "dd/MM/yyyy"
طبعاً ستقوم بالتطبيق طبقاً لطريقة عرض التاريخ
تحياتى لكوتمنياتى لك التوفيق
حاولت بالطريقة دية ومفيش نتيجة
كود :
Dim dc As Date = DATETIM_START.Value
dc = Format(dc, "yyyy/MM/dd")
If Not DATAGRID_NAME.Rows(i).Cells(1).Value.ToString.Contains(dc) Or DATAGRID_NAME.Rows(i).Cells(1).Value = Nothing Then
DATAGRID_NAME.Rows.RemoveAt(i)
End Ifالي هيجنني ان لما باستقطع التاريخ من الداتا جريد وابحث بية بيبحث عادي لكن لما بيكتب يدوي او من الداتا تايم مباشرة لا يبحث

