منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : البحث في الداتاقريدفيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
ممكن طريقة البحث في الداتاقريدفيو علما بان الداتاقريد غير متصلة بقاعدة بيانات ويوجد بها بيانات مضافة في الداتاقريد فقط
وعليكم السلام ورحمة الله وبركاته

كل ما عليك استخدام الكود التالى
كود :
       Dim someText As String = TextBox1.Text
       Dim gridRow As Integer = 0
       Dim gridColumn As Integer = 0
       For Each Row As DataGridViewRow In DataGridView1.Rows
           For Each column As DataGridViewColumn In DataGridView1.Columns
               Dim cell As DataGridViewCell = (DataGridView1.Rows(gridRow).Cells(gridColumn))
               cell.Style.BackColor = Nothing
               If cell.Value.ToString.ToLower.Contains(someText.ToLower) Then
                   cell.Style.BackColor = Color.Yellow
               End If
               gridColumn += 1
           Next column
           gridColumn = 0
           gridRow += 1
       Next Row

تحياتى لك
وتمنياتى لك التوفيق
اذا كنت عملت داتاتيبل بالكود واضفت له البيانات ثم ربطت هذا التيبل بالداتاجريد سيكون الامر سهل جدا ولا تحتاج سوى لسطر او سطرين للحصول على ما تريد
استخدم الكود دا ممكن ينفعك
واسئل الله ان ينفعنا  وا
كود :
البياناتBindingSource.DataSource = Me.البياناتDataSet.البيانات.Select("الاسم like '%" & TextBox1.Text & "%' or القسم like '%" & TextBox1.Text & "%'")

On Error GoTo ErrRe

       البياناتBindingSource.Filter = Nothing

       With DataGridView1
           .ClearSelection()
           .ReadOnly = True
           .MultiSelect = False
           .DataSource = البياناتBindingSource
       End With
ErrRe:
ياكم