[Emam emam]

السلام عليكم
عندي داتا جريد فيو 
واريد وضع شرط انه اذا كانت الداتا جريد فيو تحتوي مثلا علي (أحمد و محمد ومصطفي) يظهر رساله (نعم)
واذا كانت تحتوي علي (محمود) يظهر رساله (لا).

[rmnr]

كود :

Dim names As New List(Of String)
For Each r As DataGridViewRow In Me.DataGridView1.Rows
   If r.Cells(1).Value <> "" Then
       names.Add(r.Cells(1).Value)
   End If
Next

كود :

If names.Contains("أحمد") Or names.Contains("محمد") Or names.Contains("مصطفي") Then
   MsgBox("نعم")
End If

كود :

If names.Contains("محمود") Then
   MsgBox("لا")
End If

[Emam emam]

(01-11-18, 08:22 PM)rmnr كتب :

كود :

Dim names As New List(Of String)
For Each r As DataGridViewRow In Me.DataGridView1.Rows
   If r.Cells(1).Value <> "" Then
       names.Add(r.Cells(1).Value)
   End If
Next

كود :

If names.Contains("أحمد") Or names.Contains("محمد") Or names.Contains("مصطفي") Then
   MsgBox("نعم")
End If

كود :

If names.Contains("محمود") Then
   MsgBox("لا")
End If

بارك الله فيك أخي [b]rmnr[/b]  
جزاك الله خير الجزاء علي اهتمامك .
استخدمت الكود والمشكله اتحلت بفضل الله ثم مساعدتك.

[elgokr]

حتى تعم الفائدة يمكن استخدام الطريقة بهذا الشكل

كود :

       Dim lisName As String() = New String() {"أحمد", "محمد", "مصطفي"}
       For i As Integer = 0 To lisName.Count - 1
           For ii As Integer = 0 To DataGridView1.RowCount - 1
               If DataGridView1.Rows(ii).Cells(1).Value.Contains(lisName(i)) Then
                   MsgBox("Yes")
                   Exit For
               End If
           Next
       Next

كل المطلوب وضع الجمل او الكلمة المطلوب التحقق منها خلال هذا السطر

كود :

Dim lisName As String() = New String() {"أحمد", "محمد", "مصطفي"}

تحياتى للجميع

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

[Emam emam]

(02-11-18, 05:49 PM)elgokr كتب : حتى تعم الفائدة يمكن استخدام الطريقة بهذا الشكل

كود :

       Dim lisName As String() = New String() {"أحمد", "محمد", "مصطفي"}
       For i As Integer = 0 To lisName.Count - 1
           For ii As Integer = 0 To DataGridView1.RowCount - 1
               If DataGridView1.Rows(ii).Cells(1).Value.Contains(lisName(i)) Then
                   MsgBox("Yes")
                   Exit For
               End If
           Next
       Next

كل المطلوب وضع الجمل او الكلمة المطلوب التحقق منها خلال هذا السطر

كود :

Dim lisName As String() = New String() {"أحمد", "محمد", "مصطفي"}

تحياتى للجميع

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

بارك الله فيكم جميعا الكود اشتغل تمام الحمد لله
شكرا علي مجهودك اخي rmnr
واشكر الاخ الفاضل [b]elgokr شكرا جزيلا [/b]

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

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