رسالة و تلوين خلية الداتاجريد - نسخة قابلة للطباعة

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

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