منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فلتر للداتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : فلتر للداتا جريد فيو (/showthread.php?tid=36263)

الصفحات: 1 2


RE: فلتر للداتا جريد فيو - ahmedramzyaish - 05-09-20

(03-09-20, 02:36 AM)Anas Mahmoud كتب : اخي الكريم انصحك ان تغير طريقة اضافة البيانات للداتا جريد مباشرة عن طريق DataGridView1.Rows.Add

انصحك بملئ DataTable اولا ومن ثم جعله DataSource للداتا جريد فيو ، ذلك يتيح لك الاستفادة من الخاصية Filter الخاصة بالداتا تابل كما موضح بالمشاركات السابقة

ومع ذلك اذا لم ترد تغيير ايا من كودك يجب عليك اختبار الصفوف يدويا واظهار واخفاء ما تريد حسب محتوى التكست بوكس 

الرقم 0 يمثل العمود الاول غيره الى العمود الذي تريد التغيير له

كود :
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim txt As TextBox = sender
       For Each row As DataGridViewRow In DataGridView1.Rows
           Dim cell = row.Cells(0)
           If Not cell.Value Is Nothing Then
               If cell.Value.ToString.Contains(txt.Text.Trim) Then
                   row.Visible = True
               Else
                   row.Visible = False
               End If
           End If
       Next
   End Sub

الكود يقوم يدويا بالمرور على الصفوف واخفاء الغير مطابق للشرط وهو محتوى مربع النص

المصدر https://stackoverflow.com/a/48557623

لكي يكون الكود DRY ولا تكرر نفسك عرف الاجراء التالي عام للبرنامج كله ، في موديول مثلا 

كود :
   Sub Filter(Datagridview As DataGridView, index As Integer, Selector As Func(Of String, Boolean))
       For Each row As DataGridViewRow In Datagridview.Rows
           Dim cell = row.Cells(index)
           If Not cell.Value Is Nothing Then
               If Selector(cell.Value.ToString) Then
                   row.Visible = True
               Else
                   row.Visible = False
               End If
           End If
       Next
   End Sub

وعند الحاجة استدعيه في سطر واحد : 

كود :
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim txt As TextBox = sender
       Filter(DataGridView1, 0, Function(x) x.Contains(txt.Text))
   End Sub

تحديث هام : جربتها لعدد كبير من الصفوف وتأخذ وقت طويل جدا لذا لا انصح بها اطلاقا ، بدلا من ذلك اضف البيانات الى داتا تابل اولا وبعد ذلك اسنده الى الخاصية Datasource

اشكرك اخى الكريم
هذا هو ما كنت اقصد والحمد لله
ولكن انا اقوم بعملية جمع واستخدم الكود التالى لجمع العمود
كود :
Dim sum As Integer = 0
        For i As Integer = 0 To dgvItems.Rows.Count - 1
            sum += Convert.ToInt32(dgvItems.Rows(i).Cells(2).Value)
        Next
        Label4.Text = sum.ToString()
ولكن يقوم بجمع كل البيانات داخل العمود
المطلوب انه يجمع فقط البيانات الظاهرة اى البيانات الناتجه من عملية البحث
بمعنى اخر يجمع فقط الظاهر
وشكراا مرة اخرى


RE: فلتر للداتا جريد فيو - Anas Mahmoud - 05-09-20

اختبر اذا كان صف ظاهر ام مخفي             If dgvItems.Rows(i).Visible Then



كود :
       Dim sum As Integer = 0
       For i As Integer = 0 To dgvItems.Rows.Count - 1
           If dgvItems.Rows(i).Visible Then
               sum += Convert.ToInt32(dgvItems.Rows(i).Cells(2).Value)
           End If
       Next
       Label4.Text = sum.ToString()