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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25924)

البحث في الداتاقريدفيو - المتألق9 - 30-07-18

السلام عليكم
ممكن طريقة البحث في الداتاقريدفيو علما بان الداتاقريد غير متصلة بقاعدة بيانات ويوجد بها بيانات مضافة في الداتاقريد فقط

RE: البحث في الداتاقريدفيو - elgokr - 30-07-18

وعليكم السلام ورحمة الله وبركاته

كل ما عليك استخدام الكود التالى
كود :
       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

تحياتى لك
وتمنياتى لك التوفيق


RE: البحث في الداتاقريدفيو - GameOver - 31-07-18

اذا كنت عملت داتاتيبل بالكود واضفت له البيانات ثم ربطت هذا التيبل بالداتاجريد سيكون الامر سهل جدا ولا تحتاج سوى لسطر او سطرين للحصول على ما تريد

RE: البحث في الداتاقريدفيو - اسامه الهرماوي - 29-09-18

استخدم الكود دا ممكن ينفعك
واسئل الله ان ينفعنا  وا
كود :
البيانات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:
ياكم