[العيدروس]

السلام عليكم و رحمة الله
اخواني الافاضل لو سمحتم ارجو مساعدتكم 
عندي داتاجريد بها أسماء  .. عند الضغط على button1
اريد لو كتبت اسم بتاكست بكس 1 أو تاكست بكس 2 او تاكست بكس 3 او تاكست بكس 4 او تكست بكس 5 لو هذا الاسم المكتوب باحدى التاكسات متواجد بالداتاجريد تظهر لي رسالة خطأ و تتلون خلية هذا الاسم بالاحمر
الاختبار يكون فقط على الاعمدة name1 و name2 و name3 و ليس على العمود id
بارك الله فيكم و جزاكم كل خير

[justforit]

PHP كود :

Private Function Rowindex(g As GroupBox) As Integer
     For Each c As Control In g.Controls
         If TypeOf c Is TextBox Then
             For Each row As DataGridViewRow In Me.DataGridView1.Rows
                 If row.IsNewRow = False Then
                     If CType(c, TextBox).Text = row.Cells(1).Value Or CType(c, TextBox).Text = row.Cells(2).Value Or CType(c, TextBox).Text = row.Cells(3).Value Then
                         Return row.Index
                         Exit For
                     End If
                 End If
             Next
         End If
     Next
     Return -1
 End Function
 Dim r As Integer = Rowindex(GroupBox1)
[size=small] If r > -1 Then[/size]
[size=small]     Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(r).Cells(0)[/size]
 End If 


[العيدروس]

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

[justforit]

(16-05-24, 10:39 PM)العيدروس كتب : بارك الله فيك و انعم عليك اخ justforit
فقط بعد اذنك ها ممكن تلوين الخلية بحد ذاتها على الداتاجريد بدلا من الوقوف على السطر كاملا و الف شكر مقدما

عدل على مشاركتي لتكون هكذا:

PHP كود :

Private Function cellindex(g As GroupBox) As Integer
     For Each c As Control In g.Controls
         If TypeOf c Is TextBox Then
             Dim txt As String = CType(c, TextBox).Text
             For Each row As DataRow In dt.Rows
                 If row.Item(1) = txt Then
                     Return dt.Columns(1).Ordinal
                     Exit Function
                 ElseIf row.Item(2) = txt Then
                     Return dt.Columns(2).Ordinal
                     Exit Function
                 ElseIf row.Item(3) = txt Then
                     Return dt.Columns(3).Ordinal
                     Exit Function
                 End If
             Next

         End If
     Next
     Return Nothing
 End Function
 Private Function Rowindex(g As GroupBox) As Integer
     For Each c As Control In g.Controls
         If TypeOf c Is TextBox Then
             Dim txt As String = CType(c, TextBox).Text
             txt = txt.Trim
             If txt.Trim = "" Then Continue For
             If dt.Select("name1='" & txt & "' or name2='" & txt & "' or name3='" & txt & "'").Count = 0 Then MsgBox("No Results Found.", MsgBoxStyle.Exclamation, "Search") : Exit Function
             Dim row As DataRow = dt.Select("name1='" & txt & "' or name2='" & txt & "' or name3='" & txt & "'").Single
             Return dt.Rows.IndexOf(row)
             Exit Function
         End If
     Next
     Return -1
 End Function 


وعند نقر زر الاضافة:

PHP كود :

       Me.DataGridView1.ClearSelection()
        Dim r As Integer = Rowindex(GroupBox1)
        Dim c As Integer = cellindex(GroupBox1)
        If r > -1 Then
            Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(r).Cells(c)
            Me.DataGridView1.CurrentCell.Style.SelectionBackColor = Color.Red
        Else
            Me.DataGridView1.CurrentCell.Style.SelectionBackColor = Color.White
        End If 


[العيدروس]

الله يبارك فيك و يجازيك كل خير اخي justforit
الان كلو مضبوط و الحمد لله

[justforit]

(16-05-24, 11:54 PM)العيدروس كتب : الله يبارك فيك و يجازيك كل خير اخي justforit
الان كلو مضبوط و الحمد لله

 و فيك بارك الله و الحمدلله.

[justforit]

حدثت المثال قلت لربما اراد هذا التحديث

[محمد خيري]

بارك الله فيك اخي
justforit
مثال رائع و مفيد زادك الله من علمه و فضله لك مني كل الشكر

[justforit]

(17-05-24, 07:10 PM)محمد خيري كتب : بارك الله فيك اخي
justforit
مثال رائع و مفيد زادك الله من علمه و فضله لك مني كل الشكر

و فيك بارك الله