(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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير