30-07-18, 10:11 PM
30-07-18, 11:21 PM
وعليكم السلام ورحمة الله وبركاته
كل ما عليك استخدام الكود التالى
كود :
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
تحياتى لك
وتمنياتى لك التوفيق
31-07-18, 07:40 AM
اذا كنت عملت داتاتيبل بالكود واضفت له البيانات ثم ربطت هذا التيبل بالداتاجريد سيكون الامر سهل جدا ولا تحتاج سوى لسطر او سطرين للحصول على ما تريد
29-09-18, 03:35 PM
استخدم الكود دا ممكن ينفعك
واسئل الله ان ينفعنا وا
ياكم
واسئل الله ان ينفعنا وا
كود :
البيانات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: