Переписать процедуру с DatagridView в Datagrid

    Private Sub Add_IP(ByVal values As List(Of String))
 
        If Me.DataGridView1.InvokeRequired Then
            Dim d As New SetDatapointCallback(AddressOf Add_IP)
            Me.Invoke(d, New Object() {values})
        Else
            Dim editrow As Boolean = False
            For Each row As DataGridViewRow In DataGridView1.Rows
                If row.Cells(0).Value.ToString() = values(0) Then
                    For i As Integer = 1 To values.Count - 1
                        If values(i) <> "-" Then
                            row.Cells(i).Value = values(i)
                        End If
                        If i = 3 AndAlso values(3) = "Available" Then
                            row.Cells(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 4 AndAlso values(4) = "Available" Then
                            row.Cells(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 5 AndAlso values(5) = "HTTPS Available" Then
                            row.Cells(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 5 AndAlso values(5) = "Available" Then
                            row.Cells(i).Style.BackColor = Color.Yellow
                        End If
                    Next i
                    editrow = True
                End If
            Next row
 
            If Not editrow Then
                Try
                    DataGridView1.Rows.Add(values(0), values(1), values(2), values(3), values(4), values(5))
                Catch ex As Exception
                    Exit Sub
                End Try
            End If
        End If
    End Sub

 For Each row As DataGridViewRow In dtstudent.Rows

For Each row As DataRow In dtstudent.Rows

  If row.Cells(0).Value.ToString() = values(0) The

Dim row As DataRow

 Dim row As DataRow
For Each row In dtstudent.Rows

 Private Sub Add_IP(ByVal values As List(Of String))
 
        If Me.DataGrid1.InvokeRequired Then
                Dim d As New SetDatapointCallback(AddressOf Add_IP)
                Me.Invoke(d, New Object() {values})
            Else
                Dim editrow As Boolean = False
 
            For Each row As DataRow In dtstudent.Rows
                If row(0) = values(0).ToString Then
                    For i As Integer = 1 To values.Count - 1
                        If values(i) <> "-" Then
                            row(i) = values(i)
                        End If
                        If i = 3 AndAlso values(3) = "Available" Then
                            'row(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 4 AndAlso values(4) = "Available" Then
                            'row(i).BackColor = Color.LightGreen
                        End If
                        If i = 5 AndAlso values(5) = "HTTPS Available" Then
                            'row(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 5 AndAlso values(5) = "Available" Then
                            ' row(i).Style.BackColor = Color.Yellow
                        End If
                    Next i
                    editrow = True
                End If
            Next row
 
            If Not editrow Then
                    dtstudent.Rows.Add(values(0), values(1), values(2), values(3), values(4), values(5))
                End If
            End If
 
    End Sub

 Panel1.Controls.Clear()
        md = Nothing
        Refresh()
        md = New MasterControl(ds)
        Panel1.Controls.Add(md)
 
        Dim file As New System.IO.StreamReader("D:\test.txt")
        Dim dt As New DataTable()
 
        dt.Columns.Add("Фамилия")
        dt.Columns.Add("Имя")
        dt.Columns.Add("Отчество")
        dt.Columns.Add("Телефон")
        dt.Columns.Add("Адрес")
     
        Dim newline As String
        newline = file.ReadLine()
 
        Do While newline IsNot Nothing
            Dim dr As DataRow = dt.NewRow()
            Dim values() As String = newline.Split("|"c)
            For i As Integer = 0 To values.Length - 1
                dr(i) = values(i)
            Next i
            dt.Rows.Add(dr)
            newline = file.ReadLine()
        Loop
        file.Close()
        md.DataSource = dt
 
 
        '  md.childView.Add("Orders", "Orders")
        '  md.childView.Add("Invoices", "Invoices")

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
 
    End Sub

Private Sub DGV_Show_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Panel1.Controls.Clear()
    md = Nothing
    Refresh()
    md = New MasterControl(ds, 3) 'по умолчанию 5
    Panel1.Controls.Add(md)
    md.setParentSource("Famil", "IdF")
    md.childView.Add("Place", "Placement")
    AddHandler md.CellContentClick, AddressOf CellContent_Click 'относится к окну Master
End Sub
Private Sub CellContent_Click(sender As Object, e As DataGridViewCellEventArgs)
    MsgBox(e.RowIndex + 1 & ", " & e.ColumnIndex + 1)
End Sub

 Private Sub CellContent_Click(sender As Object, e As DataGridViewCellEventArgs)
 
 
        If md.Rows(e.RowIndex).Cells(0).Value IsNot Nothing Then
            Label1.Text = (md.Rows(e.RowIndex).Cells(0).Value.ToString())
            Label2.Text = (md.Rows(e.RowIndex).Cells(1).Value.ToString())
        End If
 
end sub

   Private Function CreateTableDetail() As DataTable
        Dim tb As New DataTable
 
        tb.Columns.Add("IdF", System.Type.GetType("System.String"))
        tb.Columns.Add("ФИО", System.Type.GetType("System.String"))
        tb.Columns.Add("Адрес", System.Type.GetType("System.String"))
        tb.Columns.Add("Отдел", System.Type.GetType("System.String"))
        tb.Columns.Add("Раб. телефон", System.Type.GetType("System.String"))
  
        tb.PrimaryKey = {tb.Columns(0)}
 
        tb.Rows.Add(Label1.Text, Label2.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text)
 
        tb.TableName = "Place"
        Return tb
    End Function

Private Sub CellContent_Click(sender As Object, e As DataGridViewCellEventArgs)

 ds.Tables.Remove("Wor")
        dtD.Rows.Clear()
        dtD.Columns.Clear()