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

نسخة كاملة : سؤال في الداتا جريد فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عندي داتا جريد فيو 
واريد وضع شرط انه اذا كانت الداتا جريد فيو تحتوي مثلا علي (أحمد و محمد ومصطفي) يظهر رساله (نعم)
واذا كانت تحتوي علي (محمود) يظهر رساله (لا).
كود :
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
(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]  
جزاك الله خير الجزاء علي اهتمامك .
استخدمت الكود والمشكله اتحلت بفضل الله ثم مساعدتك.
حتى تعم الفائدة يمكن استخدام الطريقة بهذا الشكل
كود :
       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() {"أحمد", "محمد", "مصطفي"}

تحياتى للجميع
وتمنياتى لكم التوفيق
(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]
الشكر لله والحمد لله
والحمد لله على كل حال

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