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

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



سؤال في الداتا جريد فيو - Emam emam - 01-11-18

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


RE: سؤال في الداتا جريد فيو - rmnr - 01-11-18

كود :
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



RE: سؤال في الداتا جريد فيو - Emam emam - 01-11-18

(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]  
جزاك الله خير الجزاء علي اهتمامك .
استخدمت الكود والمشكله اتحلت بفضل الله ثم مساعدتك.


RE: سؤال في الداتا جريد فيو - elgokr - 02-11-18

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

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



RE: سؤال في الداتا جريد فيو - Emam emam - 02-11-18

(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]


RE: سؤال في الداتا جريد فيو - elgokr - 03-11-18

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

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